загрузка / обработка анимации в 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; }'

Вы можете поместить подобный код в цикл обработки, чтобы отобразить соответствующий счетчик.