Foro - Perl en Español

Buenas de nuevo.

Creo que este problema lo he leído ya resuelto en algún lado, pero no lo encuentro. Quería saber cómo puedo guardar la salida de una llamada a "system()". Por ejemplo, si uso system() para hacer un "dir" de un directorio, querría que se me guardara el resultado de todos los directorios listados en un string, de manera que luego los pudiera consultar.

¡Gracias!

Debes usar qx(), en lugar de system(), que solo te da el resultado de la ejecución.

De todas formas, para leer un directorio, yo usaría opendir(), readdir() y closedir().

Muchas gracias, me funciona perfectamente.

Bueno yo estoy empezando en Perl, pero creo que sería así:


La salida del DIR se va hacia el archivo "archivo.txt".

Bienvenido a los foros de Perl en Español, RockoX.

Gracias por la apreciación, RockoX, pero miguialberto pedía guardar la salida de la ejecución del comando en una variable escalar, no en un fichero externo.

Para eso se suele usar qx():o las comillas invertidas (``) que es lo mismo.

Disculpen, no leí bien. Una pregunta: ¿esto sería correcto, guardar la salida del comando "dir" en una variable?


Otra cosa, cuando ejecuto el script, me da esta salida:

Código: Seleccionar todo

Code.pl
Code.vpd
0

Pero ¿qué significa el 0 en la última línea, el grado de error?

Pongo esto en la línea de comandos y me sigue dando un 0:

Código: Seleccionar todo

perl code.pl & echo %errorlevel%

Y ahora me da esta salida en la consola :

Código: Seleccionar todo

Code.pl
Code.vpd
00

Esa es básicamente mi pregunta, por qué me devuelve un 0.

system() devuelve el resultado de la ejecución de la operación, así que de ahí viene el cero. No estás guardando la salida del comando. Solo estás guardando un cero. Si ves la salida del comando en pantalla es porque no estás capturando nada y la salida sale por la salida estándar (la consola).

Y otro detalle... no es lo mismo print() que printf(). El segundo requiere de un parámetro con el formato de salida.

Gracias, duda aclarada.