Wyświetlanie Postępu pobierania pliku LWP :: UserAgent

Question

Pobierany jest duży plik bezpośrednio do pliku za pomocą języka Perl przy użyciu opcji LWP :: UserAgent i :content_file.

To jest uproszczony przykład z mojego kodu:

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; 
} 

Czy istnieje jakiś sposób, aby wyświetlić procent stanu pobierania? (Albo coś podobny do wget wyjściu)

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

Answer 1

Z documentation for the module.

$ UA-> show_progress

$ UA-> show_progress ($ logiczna)

Pobierz/ustaw wartość wskazującą, czy pasek postępu powinny być wyświetlane na terminalu jako wnioski są przetwarzane. Wartością domyślną jest FALSE.

Answer 2

Dave już odpowiedział na twoje pytanie, ale chciałbym zasugerować poniżej 2 moduły.

• LWP::UserAgent::ProgressBar: podklasy LWP::UserAgent który zapewnia dodatkowe metody get_with_progress i post_with_progress.

• LWP::UserAgent::ProgressAny: Wykorzystuje framework Progress::Any, dzięki czemu można go wykorzystać do rejestrowania postępu na dowolnym wyjściu.