Cómo vaciar la salida en los palos de atrás En Perl?

Question

Si tengo esta aplicación Perl:

print `someshellscript.sh`; 

que imprime montón de cosas y tarda mucho tiempo en completarse, ¿cómo se puede imprimir, que la producción en el medio de la ejecución del script de shell?

Parece que Perl solo imprimirá el resultado de someshellscript.sh cuando se complete, ¿hay alguna manera de hacer que la salida quede nivelada en el medio de la ejecución?

Answer 1

Lo que es probable que desee hacer es algo como esto:

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

Esto ejecuta someshellscript.sh y abre una tubería que lee su salida. El ciclo while lee cada línea de salida generada por el script y la imprime. Consulte la página de documentación open para obtener más información.

Answer 2

El problema aquí es que al escaparse con los palos de retroceso guarda su secuencia de comandos en una cadena, que luego imprime. Por esta razón, no habría forma de "limpiar" con la impresión.

Usando el comando system() debe imprimir la salida continua, pero usted no será capaz de capturar la salida:

system "someshellscript.sh";