如何使用AnyEvent::HTTP只获取页面的一部分?
How to use AnyEvent::HTTP to get only part of the page?
需要只读取页面的一部分(n 字节)并关闭连接,如何在 AnyEvent::HTTP 上执行此操作?
on_body
在块到达时被重复调用。从 on_body
返回 false 会终止下载。
sub my_http_request {
my $cb = pop;
my ($method, $url, %args) = @_;
croak("Unsupported: on_body") if $args{on_body};
croak("Unsupported: want_body_handle") if $args{want_body_handle};
my $max_to_read = delete($args{max_to_read});
my $data;
return http_request(
$method => $url,
%args,
on_body => sub {
#my ($chunk, $headers) = @_;
$data .= $_[0];
return !defined($max_to_read) || length($data) < $max_to_read;
},
sub {
my (undef, $headers) = @_;
$cb->($data, $headers);
},
);
}
使用 my_http_request
就像 http_request
,除了它接受一个可选的 max_to_read
参数。
例如,
my $cb = AnyEvent->condvar();
my_http_request(
GET => 'http://...',
...
max_to_read => ...,
$cb,
);
my ($data, $headers) = $cb->recv();
例如,
my $done = AnyEvent->condvar();
my_http_request(
GET => 'http://...',
...
max_to_read => ...,
sub {
my ($data, $headers) = @_;
...
$done->send();
},
);
$done->recv();
需要只读取页面的一部分(n 字节)并关闭连接,如何在 AnyEvent::HTTP 上执行此操作?
on_body
在块到达时被重复调用。从 on_body
返回 false 会终止下载。
sub my_http_request {
my $cb = pop;
my ($method, $url, %args) = @_;
croak("Unsupported: on_body") if $args{on_body};
croak("Unsupported: want_body_handle") if $args{want_body_handle};
my $max_to_read = delete($args{max_to_read});
my $data;
return http_request(
$method => $url,
%args,
on_body => sub {
#my ($chunk, $headers) = @_;
$data .= $_[0];
return !defined($max_to_read) || length($data) < $max_to_read;
},
sub {
my (undef, $headers) = @_;
$cb->($data, $headers);
},
);
}
使用 my_http_request
就像 http_request
,除了它接受一个可选的 max_to_read
参数。
例如,
my $cb = AnyEvent->condvar();
my_http_request(
GET => 'http://...',
...
max_to_read => ...,
$cb,
);
my ($data, $headers) = $cb->recv();
例如,
my $done = AnyEvent->condvar();
my_http_request(
GET => 'http://...',
...
max_to_read => ...,
sub {
my ($data, $headers) = @_;
...
$done->send();
},
);
$done->recv();