几种常用的显示程序进度的小方法

非常怀念DOS时代在程序中显示进度的方法，当时觉得那些程序非常酷（记得是JAR，一个压缩程序，进度在原地显示，有百分比），因为倾我所学，也不知道如何实现。在PERL代码中，我一直使用的就是滚屏显示进度。今天看有人跟老大吵架的贴，找到了灵感，贴出来跟大家共享一下。

1、方法1

1. my $max = 100;
   
2. for(1..$max) {
   
3.         my $percent = $_/$max*100;
   
4.         print "$_ - $percent % OK!\n";
   
5.         sleep(1);
   
6. }
   
7. <STDIN>;

复制代码

这是我最常用的方法，在处理大量数据时，我从屏幕上能看到进度，虽然它会消耗一些额外的 时间。这种方法简单，稳定，而且容易实现，随意使用。

2、方法2

1. #!/usr/bin/perl -w
   
2. 
   
3. $| = 1;
   
4. my $max = 10;
   
5. for(1..$max) {
   
6.         print ".";
   
7.     print " Complete!" if ($_ == $max);
   
8.         sleep(1);
   
9. }
   
10. <STDIN>;

复制代码

这也是DOS时代非常经典的进度指示，从“…..”的长度来判断进度。

3、方法3

1. #!/usr/bin/perl -w
   
2. 
   
3. local $| = 1;
   
4. my @progress_symbol = ('-','\\','|','/');
   
5. my $n = 0;
   
6. for(my $i=1;$i<=3000;$i++){
   
7.         print "\r $progress_symbol[$n] $i";
   
8.          $n = ($n>=3)? 0:$n+1;
   
9.         select(undef, undef, undef, 0.1);
   
10. }
    
11. local $| = 0;
    
12. 
    
13. <STDIN>;

复制代码

用滚轮在原地显示进度，当然也可以加入百分比，这是我一直认为非常酷的方法，以后会加入自己的程序。

4、方法4

1. #!/usr/bin/perl -w
   
2. 
   
3. local $| = 1;
   
4. while (1){
   
5.         &gettime;
   
6.         print "\r $now";
   
7.         sleep(1);
   
8. }
   
9. local $| = 0;
   
10. exit;
    
11. 
    
12. sub gettime {
    
13.         my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));
    
14.         $sec = ($sec < 10)? "0$sec":$sec;
    
15.         $min = ($min < 10)? "0$min":$min;
    
16.         $hour = ($hour < 10)? "0$hour":$hour;
    
17.         $day = ($day < 10)? "0$day":$day;
    
18.         $mon = ($mon < 9)? "0".($mon+1):($mon+1);
    
19.         $year += 1900;
    
20.         $now = "$year.$mon.$day $hour:$min:$sec";
    
21. }

复制代码

在原地显示走时的数字时钟，可以加入百分比，也很酷。

5、方法5

1. #!/usr/bin/perl -w
   
2. # Author: Zhao
   
3. # Date: 2009.12.22
   
4. # Purpose: simulate the progress bar
   
5. 
   
6. $n = 30;
   
7. for($i=1;$i<=$n;$i++){
   
8.         proc_bar($i,$n);
   
9.         select(undef, undef, undef, 0.2);
   
10. }
    
11. <STDIN>;
    
12. 
    
13. sub proc_bar{
    
14.         local $| = 1;
    
15.         my $i = $_[0] || return 0;
    
16.         my $n = $_[1] || return 0;
    
17.         print   "\r [ ".("\032" x int(($i/$n)*50)).(" " x (50 - int(($i/$n)*50)))." ] ";
    
18.         printf("%2.1f %%",$i/$n*100);
    
19.         local $| = 0;
    
20. }

复制代码

从吵架贴里看到的，在我看来比较高级的方法，有百分比，有不断增长的进度条。

另有一个叫Term: rogressBar，也很好，但我的程序没有那么复杂，有兴趣的可以研究一下。CPAN上还有一些其他显示进度的模块。

$|变量的作用：
$|变量设置为真时，每输出一次，STDOUT缓冲会被强制清空


以上是自己摸索出的小方法，希望对大家有帮助，若有其他方法，请贴出来共享。