如何确定 LWP::Simple 的 getstore() 的下载速度和数量？

Question

使用perl模块时 LWP::Simple，是否有一种简单的方法可以确定单次 getstore() 调用下载的速度和数量？这对于观察大文件下载的状态很有用。

在我的脑海中，一种方法是：

1. 存储当前时间 (time0)
2. 在新进程中运行 getstore
3. 轮询已知的目标文件
   • 下载的数量将是当前文件大小（大小）
   • 下载速度为（大小 / current_time - time0）

我想知道是否有更简单的方法。

欢迎其他建议（也许我应该使用不同的模块？）

Answer 1

不要使用 LWP::Simple，而是使用 LWP::UserAgent< /a> 直接。首先，看看 LWP::Simple::getstore 如何初始化 $ua 并调用请求。您需要调用 $ua->add_handler 来指定 response_data 处理程序来执行您想要的操作；默认情况下（至少对于 HTTP 协议）LWP::UserAgent 将读取最多 4Kb 块并为每个块调用 response_data 处理程序，但您可以建议不同的处理程序请求方法参数中的大小。

如果您想区分标头数据和将存储在文件中的实际数据，或者在存在重定向时执行一些特殊操作，您可能还想指定其他处理程序。

Answer 2

除非您有其他要求（例如在下载过程中查看速率和大小），否则您概述的步骤是最容易考虑和实施的。

您可以在 LWP::Simple 中导出底层用户代理对象。如果您只想一次性观看下载，您可以设置用户代理的 show_progress 位：

 use LWP::Simple qw($ua getstore);

 $ua->show_progress(1);

 getstore( 
'http://www.theperlreview.com/Issues/subscribers.html',
'subscribers.html'
);

要完成更多工作，您可以使用 LWP::Simple 并仍然执行 < a href="https://stackoverflow.com/questions/1778092/determining-speed-and-amount-downloaded-by-a-single-perl-lwpsimple-getstore-i/1778148#1778148">同样的事情ysth建议< /a>：

 use LWP::Simple qw($ua);

 $ua->response_header( 
      sub { 
          my($response, $ua, $h) = @_; 
          ... 
          }
      );

在该子例程中，您可以读取数据并对其执行任何您喜欢的操作，包括保留计时器。得到答案后，您可以删除那段代码并返回到 getstore。

Flavio Poletti 为 The Perl Review，2009 年春季 撰写了“Watching LWP's Activity”，并展示了许多内容使用这种技术。