Perl進度條實現

標籤：

#安裝:
sudo perl -MCPAN -e shell
install Term::ProgressBar

#情境:假設有200個url需要爬蟲，每個url的抓取速度是不一樣的,完成第1-2個url的爬蟲完成後，進度條顯示1%。當然進度條的count設定為200的前提下。

#! /usr/bin/perl
use Term::ProgressBar 2.00;
my $progress=Term::Progress->new({name=>"爬蟲進度",count=>200});
foreach(1..200){
　　sleep($_*0.1);
　　$progress->update($_);
}

 

#可以發現，到後面，增長1%所消耗的時間越來越長!

Perl進度條實現