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
 }

Answer 2

非常感谢Peter Kovacs回答我的正确答案。事实证明这比我预期的要复杂得多，所以我决定（恐怖地）回答我自己的问题。

正如彼得所示，我可以像这样设置一个回调：

$m->get($u, ":content_cb" => \&callback);

但是现在我无法使用：content_file值保存内容，因为我只能选择其中一个。回调函数传递数据，我最终将其写入文件。

我还得到一个响应对象，其中包含friedo指出的内容的总大小。因此，通过保持到目前为止收到的内容的运行总数并将其除以总内容，我可以找出已下载的内容的百分比。这是完整的回调函数：

open (VID,">$i.flv") or die "$!";
$total = 0;
sub callback
{
    my( $data, $response, $proto ) = @_;
    print VID "$data"; # write data to file
    $total+= length($data);
    $size = $response->header('Content-Length');
    print floor(($total/$size)*100),"% downloaded\n"; # print percent downloaded
}

我希望能帮助别人。

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

2 个答案: