perl的ProgressBar

Question

我试图在perl中创建一个简单的基于文本的进度条，以便在发送电子邮件或执行任务时显示进度。

任何指针？！ 谢谢

Answer 1

我使用了Term :: ProgressBar模块，并且在每次完成操作后，我调用update（）方法。就这样。 谢谢大家，特别是Bill Ruppert;）

Answer 2

Damian Conway的Smart::Comments模块包含文本进度条。

Answer 3

我很喜欢Time::Progress终端的东西。简单的例子 -

use warnings; 
use strict; 
use Time::Progress; 
use Time::HiRes "usleep"; # for demo. 

my $timer = Time::Progress->new(); 
my $some_total_to_reach = 10_000; 
$timer->attr(min => 1, max => $some_total_to_reach); 

my $count = 1; 
while ($some_total_to_reach--) 
{ 
    print $timer->report("Doing stuff: %40b%p%L%E\r", $count++); 
    usleep int(rand(1_000)); 
} 

print "\nDone!\n";