在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.