Perl: stampa di nuovo all'inizio della riga

Question

Ok, quindi quello che sto cercando di fare è stampare una percentuale completa alla mia riga di comando, ora, mi piacerebbe semplicemente "aggiornare" il numero mostrato sullo schermo. Quindi in qualche modo tornare all'inizio della linea e cambiarlo.

Ad esempio l'utilità della riga di comando windows relog.exe (che può convertire un file .blg in un file .csv) fa ciò. Se lo esegui, verrà visualizzata una percentuale completa.

Ora questo è probabilmente scritto in C++. Non so se questo è possibile anche in perl?

Answer 1

Usa "\ r" o "\ 015" ottale (alias "accento circonflesso Return" alias "Carriage Return" personaggio proveniente da giorni macchina da scrivere :)

> perl5.8 -e 'print "11111\r222\r3\n";' 
32211 
> perl5.8 -e 'print "11111\015222\0153\n";' 
32211 

Basta non dimenticare di stampare a almeno tanti caratteri come la stringa più lunga già stampata per sovrascrivere i vecchi caratteri (come puoi vedere nell'esempio sopra, l'impossibilità di farlo manterrà i vecchi caratteri).

Un'altra cosa a cui prestare attenzione è che, come indicato da Michael nel commment, è necessario attivare l'autoflush mentre queste stampe avvengono, in modo che l'output non aspetti il ​​carattere di nuova riga alla fine dell'elaborazione.

UPDATE: prega di notare che 013 carattere ottale raccomandato in un'altra risposta è in realtà un Tab verticale:

> perl5.8 -e 'print "11111\013222\0133\n";'  
11111 
    222 
     3 

Answer 2

In C e C++, il trucco è stampare il carattere # 13. Forse può funzionare in Perl.

for (int pc = 0 ; pc <= 100 ; ++pc) 
    printf("Percentage: %02d %% %c", pc, 13); 
printf("\n"); 

Answer 3

A seconda di quello che ci piace fare, pv potrebbe risolvere il problema. Può avvolgere qualsiasi script che accetta un file come input e aggiungere una barra di avanzamento.

Ad esempio

pv data.gz | gunzip -c | ./complicated-perl-script-that-reads-stdin 

pv è confezionato per RedHat/CentOS e Ubuntu almeno. Ulteriori informazioni: http://www.ivarch.com/programs/pv.shtml

Altrimenti userei CPAN, ad es. Term::ProgressBar.

Answer 4

È possibile anche usare \ b per spostare indietro di un carattere:

 
local $| = 1; #flush immediately 
print "Doing it - 10%"; 
sleep(1); 
print "\b\b\b"; 
print "20%"; 
print "\n", "Done", "\n";