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

iamlimeng

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

1、方法1

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

复制代码

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

2、方法2

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

复制代码

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

3、方法3

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

复制代码

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

4、方法4

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

复制代码

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

5、方法5

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

复制代码

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

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

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


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

py

我今天也是刚从吵架贴里学了这个。哈哈，没想到吵架贴也创造了生产力

黑色阳光_cu

#!/bin/sh

b=''
for ((i=0;$i<=100;i+=2))
do
        printf "progress:[%-50s]%d%%\r" $b $i
        sleep 0.1
        b=#$b
done
echo

iamlimeng

3楼用的是什么语言？好像不是PERL啊

黑色阳光_cu

shell~~~~

nuclearxin

藏了

ykredrum

太感谢了！这些东西加到程序里面肯定非常酷啊
感谢分享，一下子发了这么多方法，太爽啦

liyangole

赞，另外问你一下 select(undef, undef, undef, 0.2); 这句的作用？

yybmsrs

回复 8# liyangole


    sleep 0.2秒

liyangole

回复 9# yybmsrs


    多谢