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";