如何判断LWP::UserAgent分块回调函数是否处理最后一块响应数据？

在LWP::UserAgent的:content_cb回调中，可以通过回调参数里的私有数据哈希（第三个参数$p）来判断当前是否为最后一块数据，具体实现如下：

• 回调的第三个参数$p是哈希引用，其中$p->{handle}对应底层的IO::Handle对象。当所有响应数据读取完成时，这个handle的eof()方法会返回true，此时当前处理的就是最后一块数据。

修改你的代码如下：

my $ua = LWP::UserAgent->new( ... );

my $request = $ua->get($url, ':content_cb' => sub
{
  my ($d, $r, $p) = @_;
  
  # 判断是否为最后一块数据
  if ($p->{handle}->eof()) {
      # 这里编写最后一块数据的处理逻辑
      print "当前是最后一块数据\n";
  }
  
  # 处理当前数据块的常规逻辑
  # ...
});

补充说明 #

如果响应头包含Content-Length，也可以通过累计已接收字节数来判断：

1. 在回调外部定义变量累计字节数：my $total_received = 0;
2. 每次回调时累加当前块长度：$total_received += length($d);
3. 对比$total_received是否等于$r->content_length()

但这种方法不适用于分块编码（Transfer-Encoding: chunked）的响应（此类响应无Content-Length头），而eof()方法对两种传输方式都适用，是更通用的方案。

内容的提问来源于stack exchange，提问作者Ωmega