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