Perlで、経過をLoading画面みたいに表示したい。

質問

汚いソースですみません。
コマンドプロンプトから以下のプログラムを実行すると、

$n=@list;

for ($i=1; $i<@list; $i++){

print push(@percentage int(eval("$zentai"/"$n"*100)));
print "$percentage[-1]\%進行中...File$i\n";

}

結果は

0%進行中...File1
0%進行中...File2
2%進行中...File3

というように、どんどん下に向かって新たな結果が出てくるのですが、
「進行中...File」の部分は常に同じで、画面上にはそれ１つしか出ずに、
ローディング画面のように数字のところだけが変わるプログラムにするには、どうしたら良いでしょうか？

回答No.3

rafysta

use Term::Activity;
my $n = @list;
my $ta = new Term::Activity 'Now start...';
for(my $i = 0; $i < $n; $i++){
sleep 0.9;
my $percentage = $i / $n * 100;
$ta->relabel("$percentage%進行中...File$i");
$ta->tick;
}

回答No.2

Ethersky

$n=@list;

for ($i=1; $i<@list; $i++){

print push(@percentage int(eval("$zentai"/"$n"*100)));
&progress("$percentage[-1]\%進行中...File$i");

}

sub progress {
my($p) = @_;
my($copy);
$copy = $\;
$\ = "\r";
print $p;
$\ = $copy;

}

回答No.1

NINJA104

＞print "$percentage[-1]\%進行中...File$i\n";

の末尾 \n を \r にしてみるとどうですか？

参考にどうぞ。
http://seclan.dll.jp/cccrlf.htm