perl - 如何向 WWW::Mechanize 添加进度条？

Question

我有以下代码:

$mech->get($someurl, ":content_file" => "$i.flv");

所以我正在获取一个 url 的内容并将其保存为一个 flv 文件。我想每隔一秒左右打印出剩余的下载量。在 WWW::Mechanize 中有什么方法可以做到这一点吗？

Answer 1

WWW::Mechanize说 get方法是 LWP::UserAgent get 的“行为良好”重载.查看 LWP::UserAgent 的文档，您可以提供 content_cb与下载文件的每个块一起调用的键:

$mech->get( $someurl, ":content_cb" => \&callback );
sub callback
{ 
  my( $data, $response, $proto ) = @_;
  # save $data to $i.flv
  # print download notification
 }