在Perl程序中显示进度条之使用Acme::ProgressBar模块

Posted on by 
1
2
3
4
5
6
7
8
9

#!/usr/bin/perl -w
 
use Acme::ProgressBar;
 
progress {
   for ( 1 .. 10 ) {
       sleep(1);
   }
};