2011-06-27から1日間の記事一覧

HTTP::Tinyでプログレスバーを表示

Furlの FAQのものと同じですが。 #!perl use strict; use warnings; use HTTP::Tiny; use Term::ProgressBar; use File::Basename; my $url = shift or die "Usage $0 url"; my $ua = HTTP::Tiny->new( agent => 'sample ua', ); my $bar = Term::ProgressBa…