perlのアニメーションの読み込み/処理

Question

Perlがファイルを処理している間にアニメーションを表示する方法はありますか？ ちょうどドットを印刷する代わりに|/- | \（回転パイプ）のシーケンスかもしれません。

ありがとうございました。確かに

Answer 1

簡単な回転パイプは、このようなコードを使用して作成することができます。より複雑なものについては

#!/usr/bin/perl 

use strict; 
use warnings; 

$|++; # turn off output buffering; 

my @chars = qw(|/- \); 

my $i = 0; 

print $chars[$i]; 

while (1) { 
    sleep 1; 
    print "\b", $chars[++$i % @chars]; 
} 

は、Term::ProgressBarを見てみましょう。

Answer 2

、このようなものは、それを行います：あなたは適切なスピナーを表示するように処理ループ内でこのようなコードを置くことができ

perl -e '$|++; foreach $i (0..10) { print "\r", substr("|/-\\", ($i % 4), 1); sleep 1; }' 

。