Показать LWP :: Прогресс загрузки UserAgent

Question

Я загружаю большой файл непосредственно в файл с Perl, используя LWP :: UserAgent и :content_file.

Это упрощенный пример моего кода:

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

С documentation for the module.

$ ua-> show_progress

$ ua-> show_progress ($ булево)

Получить/установить значение, указывающее, следует ли индикатор будет отображаться на терминале как запросы обрабатываются. По умолчанию используется FALSE.

Answer 2

Dave уже ответил на ваш вопрос, но я хотел бы предложить ниже 2 модуля.

• LWP::UserAgent::ProgressBar: Подкласс LWP::UserAgent, что обеспечивает дополнительные методы get_with_progress и post_with_progress.

• LWP::UserAgent::ProgressAny: Использование Progress::Any рамки, поэтому его можно использовать для записи прогресса на любой выход.