perl - perl 的进度条

Question

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

任何指针？！谢谢

Answer 1

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

Answer 2

我很喜欢Time::Progress终端的东西。简单的例子——</p>

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() 方法。就这样。谢谢大家，尤其是比尔·鲁珀特 ;)