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

你可以把這樣的代碼你處理循環中，以顯示適當的微調。