显示LWP :: UserAgent下载进度

Question

我正在使用LWP :: UserAgent和:content_file选项将大文件直接下载到Perl文件中.

这是我的代码的简化示例:

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 

Answer 1

从模块的文档.

$ UA-> show_progress

$ ua-> show_progress($ boolean)

获取/设置一个值,指示在处理请求时是否应在终端上显示进度条.默认值为FALSE.