Perl 进度条

#!/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;
}