Come svuotare l'output nei backtick In Perl?

Question

Se ho questa applicazione perl:

print `someshellscript.sh`; 

che stampa mucchio di roba e richiede molto tempo per completare, come posso stampare che la produzione nel mezzo di esecuzione dello script di shell?

Sembra che Perl stamperà solo il risultato di someshellscript.sh al termine, c'è un modo per rendere l'output a livello di esecuzione?

Answer 1

Ciò che probabilmente si vuole fare è qualcosa di simile:

open(F, "someshellscript.sh|"); 
while (<F>) { 
    print; 
} 
close(F); 

Questo esegue someshellscript.sh e apre una pipe che legge l'output. Il ciclo while legge ogni riga di output generata dallo script e la stampa. Vedere la pagina di documentazione open per ulteriori informazioni.

Answer 2

Il problema qui è che l'escape con i backtick memorizza lo script in una stringa, che viene quindi stampata. Per questo motivo, non ci sarebbe modo di "svuotare" con la stampa.

Utilizzando il comando() sistema dovrebbe stampare l'output in modo continuo, ma non sarà in grado di catturare l'output:

system "someshellscript.sh";