在Perl程序中显示进度条之多姿多彩的自写代码

yixf 于 2011-11-29,09:57  

• 方法一

12345678

#!/usr/bin/perl my $max = 10;for ( 1 .. $max ) {   my $percent = $_ / $max * 100;   print "$_ - $percent % OK!\n";   sleep(1);}

方法二

从“…..”的长度来判断进度。

123456789

#!/usr/bin/perl -w $| = 1;my $max = 10;for ( 1 .. $max ) {   print ".";   print " Complete!\n" if ( $_ == $max );   sleep(1);}

• 方法三

用滚轮在原地显示进度，当然也可以加入百分比。

123456789101112

#!/usr/bin/perl -w local $| = 1;my @progress_symbol = ( '-', '\\', '|', '/' );my $n = 0;for ( my $i = 1 ; $i <= 100 ; $i++ ) {   print "\r $progress_symbol[$n] $i";   $n = ( $n 》= 3 ) ? 0 : $n + 1;   select( undef, undef, undef, 0.1 );}print "\n";local $| = 0;

• 方法四

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

123456789101112131415161718192021222324

#!/usr/bin/perl -w local $| = 1;for ( 1 .. 10 ) {   &gettime;   print "\r $now";   sleep(1);}print "\n";local $| = 0;exit; sub gettime {   my ( $sec, $min, $hour, $day, $mon, $year, $weekday, $yeardate,       $savinglightday )     = ( localtime(time) );   $sec  = ( $sec 《 10 )  ? "0$sec"  : $sec;   $min  = ( $min 《 10 )  ? "0$min"  : $min;   $hour = ( $hour 《 10 ) ? "0$hour" : $hour;   $day  = ( $day 《 10 )  ? "0$day"  : $day;   $mon = ( $mon 《 9 ) ? "0" . ( $mon + 1 ) : ( $mon + 1 );   $year += 1900;   $now = "$year.$mon.$day $hour:$min:$sec";}

• 方法五

有百分比，有不断增长的进度条。

12345678910111213141516171819

#!/usr/bin/perl -w $n = 10;for ( $i = 1 ; $i 《= $n ; $i++ ) {   proc_bar( $i, $n );   select( undef, undef, undef, 0.2 );}print "\n"; sub proc_bar {   local $| = 1;   my $i = $_[0] || return 0;   my $n = $_[1] || return 0;   print "\r [ "     . ( "32" x int( ( $i / $n ) * 50 ) )     . ( " " x ( 50 - int( ( $i / $n ) * 50 ) ) ) . " ] ";   printf( "%2.1f %%", $i / $n * 100 );   local $| = 0;}

• 方法六

(自己比较喜欢的一种，推荐！)

12345678910111213141516171819

#!/usr/bin/perl -w$n = 27;for ( $i = 1 ; $i 《= $n ; $i++ ) {    proc_bar( $i, $n );    select( undef, undef, undef, 0.2 );}print "\n"; sub proc_bar {    local $| = 1;    my $i = $_[0] || return 0;    my $n = $_[1] || return 0;    print "\r33[36m[33[33m"      . ( "|" x int( ( $i / $n ) * 50 ) )      . ( " " x ( 50 - int( ( $i / $n ) * 50 ) ) )      . "33[36m]";    printf( "%2.1f%%33[0m", $i / $n * 100 );    local $| = 0;}

• 方法七

(自己比较喜欢的一种，推荐！)

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253

#!/usr/bin/perl -w# Author: Zhao# Date: 2009.12.22# Purpose: simulate the progress bar# Update: 2009.12.23# add color output# Update: 2010.5.22# calculate remaining time $n = 1000;for ( $i = 1 ; $i 《= $n ; $i++ ) {    proc_bar( $i, $n );    select( undef, undef, undef, 0.01 );}print "\n"; sub proc_bar {    local $| = 1;    my ( $i, $n ) = @_;    my $rt = '';    my ( $num, $a, $b, @k, @v );    if ( $i % 50 == 1 ) { $ts_global{$i} = time; }    $num = scalar keys %ts_global;    if ( $num 》= 5 ) {        delete $ts_global{ $i - 250 };        @k = keys %ts_global;        @v = values %ts_global;        ( $b, $a ) = best_line( \@k, \@v );        $rt = int( $b * $n + $a - time + 1 ) . "s   ";    }    print "\r33[36m[33[33m"      . ( "#" x int( ( $i / $n ) * 50 ) )      . ( " " x ( 50 - int( ( $i / $n ) * 50 ) ) )      . "33[36m]";    printf( "%2.1f%%33[0m", $i / $n * 100 );    print " $rt";} sub best_line {    my ( $array1ref, $array2ref ) = @_;    my ( $i, $product, $sum1, $sum2, $sum1_squares, $a, $b );    for ( $i = 0 ; $i 《 @$array1ref ; $i++ ) {        $product      += $array1ref-》[$i] * $array2ref-》[$i];        $sum1         += $array1ref-》[$i];        $sum1_squares += $array1ref-》[$i]**2;        $sum2         += $array2ref-》[$i];    }    $b =      ( ( @$array1ref * $product ) - ( $sum1 * $sum2 ) ) /      ( ( @$array1ref * $sum1_squares ) - ( $sum1**2 ) );    $a = ( $sum2 - $b * $sum1 ) / @$array1ref;    return ( $b, $a );}

• 方法八

1234567891011121314151617181920212223242526272829303132333435363738

#!/usr/bin/perl use strict; local $| = 1; my ( $min_prod_id, $max_prod_id );print "Product ID Range (min max): ";my $input = 《STDIN》;if ( $input =~ /(\d+)\s+(\d+)/ ) {    if ( $1 《= $2 ) {        ( $min_prod_id, $max_prod_id ) = ( $1, $2 );    }    else {        ( $min_prod_id, $max_prod_id ) = ( $2, $1 );    }}else {    &fatal_error("Error input!");} foreach my $prod_id ( $min_prod_id .. $max_prod_id ) {    my $pulse = int(        ( $prod_id - $min_prod_id ) / ( $max_prod_id - $min_prod_id ) * 100 );    printf( "Progressing: [%-50s] %d%%\r", "#" x int( $pulse / 2 ), $pulse );     #push(@prod_details, [$prod_id, $prod_name, $prod_price, $prod_saleprice]);} print "\n"; sub fatal_error {    my ($msg) = @_;    warn "$msg\n";    print "\nPlease Enter to exit...";    ;    exit(1);}