显示LWP :: UserAgent下载进度

我正在使用LWP :: UserAgent和:content_file选项将大文件直接下载到Perl文件。显示LWP :: UserAgent下载进度

这是我的代码一个简单的例子：

require LWP::UserAgent; 

my $ua = LWP::UserAgent->new; 
$ua->timeout(3600); 
$ua->env_proxy; 

my $response = $ua->get(
    'http://example.com/largefile.xml', 
    :content_file => 'path/to/file/largefile.xml' 
); 

if ($response->is_success) { 
    print "File downloaded\n"; 
} 
else { 
    die $response->status_line; 
}

有没有什么办法来显示的下载状态的百分比是多少？（或类似的东西来wget输出）

10% [===>         ] 65.120.154 527K/s

来源

2016-11-09 nanocv

从documentation for the module。

$ UA-> show_progress

$ UA-> show_progress（$布尔值）

获取/设置指示是否一个进度条应的终端作为请求上显示的值被处理。默认值是FALSE。

来源

2016-11-09 16:29:07

就是这样！我不敢相信这很容易，谢谢！ – nanocv

另外，请看一下ActivePerl安装的/ bin/lwp-download源代码。 –

@KostiaShiian：lwp-download不是特定于ActivePerl的。它[可从CPAN获得]（https://metacpan.org/pod/distribution/libwww-perl/bin/lwp-download）。 –

Dave已经回答了您的问题，但我想建议下面2个模块。

LWP::UserAgent::ProgressBar：的LWP::UserAgent一个子类，其提供额外的方法和get_with_progresspost_with_progress。
LWP::UserAgent::ProgressAny：使用Progress::Any框架，因此，它可以用来记录任何输出的进度。

来源

2016-11-10 07:13:42

谢谢！我会看看他们两个。 – nanocv

LWP :: UserAgent :: ProgressBar提供了一个非常符合OP想法的进度条。如果这是一个问题，那么它就不太可能已经安装好了（例如，为了便携性） – Randall

显示LWP :: UserAgent下载进度

回答

相关问题