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出力に似何か）documentation for the moduleから

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

Answer 1

。

$ UA-> show_progress

$ UA-> show_progress（$ブール）

プログレスバーが要求として端末に表示するかどうかを示す値を設定/取得します処理されます。デフォルトはFALSEです。

Answer 2

Daveは、すでにあなたの質問に回答しましたが、私は以下の2つのモジュールをお勧めしたいと思います。

• LWP::UserAgent::ProgressBar

  ：さらなる方法get_with_progressとpost_with_progressを提供LWP::UserAgentのサブクラス。

• LWP::UserAgent::ProgressAny：用途Progress::Anyフレームワークを使用するので、出力をすべて出力に記録することができます。