Perl Progress bar Implementation

#安装:
sudo perl-mcpan-e shell
Install Term::P Rogressbar

#场景: Suppose that there are 200 URLs need crawlers, each URL crawl speed is not the same, the completion of the 第1-2个 URL crawler completed, the progress bar shows 1%. Of course the count of the progress bar is set to 200 under the premise.

#! /usr/bin/perl
Use term::P rogressbar 2.00;
My $progress =term::P rogress->new ({name=> "crawler Progress", count=>200});
foreach (1..200) {
Sleep ($_*0.1);
$progress->update ($_);
}

#可以发现, to the back, the increase of 1% consumes more and more time!

Perl Progress bar Implementation