perl 的进度条怎么做

rd16

我是这样想的。

#!/usr/bin/perl
for(my $i=0; $i<20; $i++){
#执行一些时间长的脚本
print "\r";
print $i; #显示进度$i/$steps*100
}

用 \r 清掉上个print，总感觉这样做不好（光标会在数字上滚动），估计会有更好的方法。不知道大家这种情况会怎么写

Perl_Er

试一试 Smart::Comments
http://search.cpan.org/~chorny/S ... b/Smart/Comments.pm

ttcn

你是要没有光标的这个效果么？
  1 #!/usr/bin/perl
  2 $|=1;
  3 print "\033[?25l";
  4 for(my $i=0; $i<20; $i++){
  5 print "\r";
  6
  7 print "$i/20"; #....$i/$steps*100
  8 sleep 1;
  9 }

royalzhang

原帖由 Perl_Er 于 2009-10-30 22:27 发表
试一试 Smart::Comments
http://search.cpan.org/~chorny/S ... b/Smart/Comments.pm

好东西

小公猫

学习一下
顺便看积分，，

rd16

$|=1;  <-----$|请问这个符号表示什么意思？
print "\033[?25l";  <-----打印这个是不是隐藏光标

ttcn_cu

$|是为了能实时刷新屏幕（不用buffer），对于做后台在执行消耗cpu的操作前台需要实时刷新的程序有用

是隐藏光标

rd16

原帖由 ttcn_cu 于 2009-10-31 20:40 发表
$|是为了能实时刷新屏幕（不用buffer），对于做后台在执行消耗cpu的操作前台需要实时刷新的程序有用

是隐藏光标

$|的说明：默认情况，输出到文件句柄的内容会被缓存起来。将变量$|设置为１，将会在输出操作结束时会立刻清空文件句柄。

------------------------------------------------------------------------------------------
$| 放在了代码的最上面，不知道会不会对其它程序造成影响。如果是在C#中是可以局部刷新一个标签

ttcn_cu

这个开关基本上应该是无害的
如果关掉开关也能实现你的功能的话，可以把它去掉

rd16

非常感谢 ttcn_cu 的解答，我这样写还没有发现什么问题。