carga/procesamiento de animación en Perl

Question

¿Hay alguna manera de mostrar una animación mientras Perl está procesando un archivo u otra cosa? Tal vez la secuencia de |/- | \ (tubo giratorio) en lugar de simplemente imprimir puntos.

Gracias por su ayuda.

Answer 1

El simple giro de tubos pueden ser creados usando código como este:

#!/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]; 
} 

Para algo más complejo, echar un vistazo a Term::ProgressBar.

Answer 2

Claro, algo como esto lo hará:

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

Usted puede poner código como este dentro de su bucle de procesamiento para mostrar un spinner apropiado.