perl içinde yükleme/işleme animasyonu

Question

Perl bir dosyayı veya başka bir işlemi işlerken bir animasyon görüntülemenin bir yolu var mı? Sadece baskı noktaları yerine |/- | \ (dönen boru) dizisi.

Yardımlarınız için teşekkürler. Tabii

Answer 1

basit dönen boru böyle kod kullanarak oluşturulabilir: Daha karmaşık bir şey için

#!/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 bakabilirsiniz.

Answer 2

, böyle bir şey yapacağız: Uygun bir değer değişimi gösterecek şekilde işleme döngü içinde böyle bir kod koyabilirsiniz

perl -e '$|++; foreach $i (0..10) { print "\r", substr("|/-\\", ($i % 4), 1); sleep 1; }' 

.