Perl的ProgressBar

Question

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

任何指针？！ 感谢

Answer 1

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

Answer 2

我非常喜欢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";

Answer 3

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