命令行 perl 脚本中的进度条

我正在尝试在命令提示符中以 % 形式打印进度。但它无法正常工作。

我想将进度打印为 :: Status 10% Completed 当 20% 完成时，它将显示状态 20% 已完成 在同一个地方而不是在新行中。请你帮助我好吗。

Code::

$count++;
$per=($count/$total)*100;
print "\nStatus:  $per Completed.\r";
sleep 1;

该模块术语::进度条似乎能够做你想做的事。

请注意，我没有尝试过。

Edit好吧，出于好奇，我现在尝试了一个小脚本：

use warnings;
use strict;

use Term::ProgressBar;

my $total = 50;
my $progress_bar = Term::ProgressBar->new($total);


for my $i (1 .. $total) {

  sleep (1);

  $progress_bar->update($i);

}

它不会完全打印您所要求的内容（例如Status nn% completed），相反，它打印一个real进度条，类似

  10% [=====                                              ]

尽管如此，这似乎是最简单直接的解决方案。