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

蚊仔perlperl

学习学习..很好喔

mysea2004

吵架也有这么高的水平

rubyish

学习学习

rubyish

太感谢 iamlimeng 了！
贴个:

1. #!/usr/bin/perl
   
2. sub pbar {
   
3.     my ( $i, $length, $total, $type ) = ( 1, @_ );
   
4.     $type = '>' if !$type or length $type != 1;
   
5.     sub {
   
6.         my $now = int $length * $i / $total;
   
7.         print "\r[", $type x $now, $" x ( $length - $now ), "] ",
   
8.           sprintf( "%3d", int 100 * $i / $total ), '%',
   
9.           $i++ == $total ? "\tDONE!" : "\t";
   
10.       }
    
11. }
    
12. 
    
13. my @a   = 1 .. 100;
    
14. my $all = scalar @a;
    
15. my $bar = pbar( 36, $all, '#' );
    
16. for (@a) {
    
17.     $bar->();
    
18.     my $r = (rand) / 10;
    
19.     `sleep $r`;
    
20. }

复制代码

teng_s2000

收藏了，谢谢

wenxin1234114

请问一下显示进度的脚本 如何和 程序运行 进度匹配的？

墨迹哥

有意思。。

grshrd49

这样也行哈哈! 启发啊,我把我的脚本改成了时钟 哈哈!

1. use strict;
   
2. use AnyEvent;
   
3. 
   
4. my $cv = AnyEvent->condvar;
   
5. $| = 1;
   
6. my $w; $w = AnyEvent->timer(
   
7.         after        => 1,
   
8.         interval        => 1,
   
9.         cb => sub {
   
10.                 my $timeshow;
    
11.                 $timeshow = &nowtime("1","1","1","1","1","1","1");
    
12.                 print "\b"x length($timeshow)."$timeshow";
    
13.                 $timeshow;
    
14. 
    
15.         }
    
16. );  
    
17. $cv->recv;
    
18. 
    
19. 
    
20. sub nowtime
    
21. {       
    
22.         my @need_return = @_;
    
23.         my %month = (
    
24.                 "Jan" => "01","Feb" => "02","Mar" => "03","Apr" => "04",
    
25.                 "May" => "05","Jun" => "06","Jul" => "07","Aug" => "08",
    
26.                 "Sep" => "09","Oct" => "10","Nov" => "11","Dec" => "12",
    
27.         );
    
28.        
    
29.         my $local_time = localtime();
    
30.         my @date = split /\s+/,$local_time;
    
31.         $date[2] = sprintf "%02d",$date[2];
    
32.         my @time = split /:/,$date[3];
    
33.         my @now_time = ($date[4],$month{$date[1]},$date[2],$time[0],$time[1],$time[2],$date[0]);
    
34.        
    
35.         my $i = 0;
    
36.         for(@need_return){
    
37.                 if( $_ eq "" ){
    
38.                         $i++;
    
39.                         return 0 if( $i == 7 );
    
40.                         next;       
    
41.                 }
    
42.                 if( $_ == 1 ){
    
43.                         #有一个参数是 1 说明要返回具体时间
    
44.                         my $return_time;
    
45.                         $return_time = $return_time . $date[4] if ( $need_return[0] ne "" );                        #年
    
46.                         $return_time = $return_time . "-" if ( $need_return[0] ne "" && $need_return[1] ne "");        #-
    
47.                         $return_time = $return_time . $month{$date[1]} if ( $need_return[1] ne "" );        #月
    
48.                         $return_time = $return_time . "-" if ( $need_return[1] ne "" && $need_return[2] ne "");        #-
    
49.                         $return_time = $return_time . $date[2] if ( $need_return[2] ne "" );                        #日
    
50.                         $return_time = $return_time . " " if ( $need_return[2] ne "" && $need_return[3] ne "");        #空格
    
51.                         $return_time = $return_time . $time[0] if ( $need_return[3] ne "" );                        #时
    
52.                         $return_time = $return_time . ":" if ( $need_return[3] ne "" && $need_return[4] ne "");        #:
    
53.                         $return_time = $return_time . $time[1] if ( $need_return[4] ne "" );                        #分
    
54.                         $return_time = $return_time . ":" if ( $need_return[4] ne "" && $need_return[5] ne "");        #:
    
55.                         $return_time = $return_time . $time[2] if ( $need_return[5] ne "" );                        #秒
    
56.                         $return_time = $return_time . " " if ( $need_return[5] ne "" && $need_return[6] ne "");        #空格
    
57.                         $return_time = $return_time . $date[0] if ( $need_return[6] ne "" );                        #周
    
58.                         return $return_time;
    
59.                 }else{
    
60.                         #否则比对时间
    
61.                         my $n = 0;
    
62.                         for(@need_return){
    
63.                                 if( $_ ne "" ){
    
64.                                         return 0 if( $_ ne $now_time[$n]);
    
65.                                 }
    
66.                                 $n++;
    
67.                         }
    
68.                         return 1;
    
69.                 }
    
70.         }
    
71. }
    

复制代码

happy_dongwei

回复 1# iamlimeng


    学到了很多, 非常感谢. 其实最重要的是学习了"\r"的用法. 原来真的不了解这个转义符的意思. 向楼主学习了.

dahe_1984

好强的方法，咋收藏啊？