perl - 如何使用 LWP 仅获取网页的开头？

Question

有谁知道在 GET 或 POST 请求中仅获取网页 50% 的最佳方法？我获取的网页需要 10、20 秒才能完全加载，我只需要从页面开头过滤几行。

Answer 1

use 5.010;
use strictures;
use LWP::UserAgent qw();

my $content;
LWP::UserAgent->new->get(
    $url,
    ':content_cb' => sub {
        my ($chunk, $res) = @_;
        state $length = $res->header('Content-Length');
        $content .= $chunk;
        die if length($content) / $length > 0.5;
    },
);