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; }' 

.