gpt4 book ai didi

perl - 显示LWP::UserAgent下载进度

转载 作者:行者123 更新时间:2023-12-04 03:36:23 25 4
gpt4 key购买 nike

我正在使用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 

最佳答案

来自documentation for the module

$ua->show_progress

$ua->show_progress( $boolean )

Get/set a value indicating whether a progress bar should be displayed on the terminal as requests are processed. The default is FALSE.

关于perl - 显示LWP::UserAgent下载进度,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40511560/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com