Foro - Perl en Español

Hola a todos.

Quisiera saber si hay alguna forma de ejecutar comandos sobre Windows, con system(), "``", etc. sin que aparezca la pantalla de ejecución sobre el sistema.

No deseo que cuando se ejecuta un comando, por ejemplo un "dir.exe" aparezca en pantalla el comando y el resultado. Me gustaría obtener el resultado en una variable ("'") y que no haya huella en el sistema de lo que se ha ejecutado.

Muchas gracias.

Un saludo,
Ricar.

¡¡¡Respondida!!!

Hola explorer.

Sí, esa opción la conocía, pero quería saber si había alguna manera más "limpia", puesto que al ejecutar mi programa lanza consolas que aparecen y desaparecen continuamente.

Muchas gracias.

Un saludo,
Ricar.

¿Las consolas aparecen y desaparecen al ejecutarlas con wperl?

ricar escribiste:Me gustaría obtener el resultado en una variable ("'") y que no haya huella en el sistema de lo que se ha ejecutado.

El resultado de la salida del comando lo puedes capturar usando qx() o las comillas invertidas.

El que no deje rastro en el sistema, es difícil. Los Windows suelen llevar un sistema de conteo que guarda registro de todas las aplicaciones.

Tendrías que entrar en ese registro y cambiarlo. Y creo que es un registro distinto en cada versión de Windows...

ricar escribiste:quería saber si había alguna manera más "limpia"

Quizás te sirvan los módulos Win32::Process y Proc::Background.

Hola, explorer.

Me refiero a que cómo ejecuto muchas veces operaciones o comandos sobre el sistema, pues hay "rastro" visual cada vez que corro el programa. Me hubiera gustado que fuera totalmente "incoloro e inodoro" .

Además, como no he realizado un buen trabajo de depuración del mismo, me sale multitud de warnings, del tipo "uninitialized blablabla" y alguna cosilla más que no afecta al resultado del programa pero me "ensucian" el mismo.

Muchas gracias por la info, le daré una vuelta a ver si me sirve para lo que quiero.

Saludos,
Ricar.

No sé si leíste el hilo que te he enlazado más arriba. Allí se comenta que wperl sí que arranca el programa sin que aparezca la consola. El problema estaba en que dentro del programa había llamadas a system(), y era justo en ese momento cuando se crea otra ventana (system() arranca un 'shell' del sistema para ejecutar el comando que le pasamos como argumento, y en Windows, un 'shell' es la consola de comandos).

Además, es cierto que wperl no usa la consola, que STDIN, STDOUT y STDERR no están asociados, por lo que no puedes leer ni escribir hacia ellos (salvo que les abras tú, claro).

Y para evitar las ventanas generadas por system(), debes cambiarlos por el procedimiento indicado con el módulo Win32::Process.

Hola Explorer.

No lo leí completamente. Probaré el módulo Win32::Process.

Muchas gracias.

Un saludo,
Ricar.

Hola, explorer.

explorer escribiste:Y para evitar las ventanas generadas por system(), debes cambiarlos por el procedimiento indicado con el módulo Win32::Process.

Respecto a esta parte, no se puede utilizar Win32::Process para leer la ejecución de un comando.

Yo utilizo realmente las comillas invertidas (no lo expliqué correctamente en el hilo abierto) para extraer la información del ejecutable, por ejemplo:


De esta forma, obtengo los directorios que haya en C:; con Win32::Process sólo puedes arrancar procesos, pararlos, obtener su PID, etc. pero no la salida del proceso/comando.

Con lo que vuelvo a estar como al principio . ¿Alguna alternativa?

Muchas gracias.

Un saludo,
Ricar.

Una alternativa 'sucia' sería guardar el resultado de la ejecución en un fichero temporal, y luego desde Perl, leerlo.

Como no tengo Windows, no sé decirte más posibilidades, para que no llamen la atención en pantalla.

Yo, lo único que recuerdo, hace ya años, cuando tuve que hacer algunas tareas en Windows, las hacía todas con wperl, y nunca me hizo falta usar el system(). Por ejemplo, en lugar de hacer un dir, usaba opendir/readdir para leer los directorios.

A ver si alguien que está en Windows, te echa una mano mejor que la mía.

Quizás... exista algún módulo más en CPAN, para estos casos. Hay algunos muy raros, como IPC::Exe. Incluso he encontrado uno específico para ocultar procesos en Windows: Win32::Process::Hide.

ricar escribiste:no se puede utilizar Win32::Process para leer la ejecución de un comando.

Depende, ¿capturando STDOUT, tal vez?

ricar escribiste:Yo utilizo realmente las comillas invertidas (no lo expliqué correctamente en el hilo abierto) para extraer la información del ejecutable, por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my $variable = `dir.exe c:\\`;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿Alguna alternativa?

En Perl "There's More Than One Way To Do It"

Las comillas invertidas no generan nuevas consolas, system() sí las genera y no captura STDOUT. Para mejorar el script deberías postearlo.

Por razones inexplicables que tiene el mundo de la informática tuve que hacer uso de Windows hace poco, donde 'descubro' que wperl funciona... cuando quiere.

También descubro una buena combinación, wperl + Win32 module + redirección:

En Strawberry el módulo Win32 es parte del core, creo, y para no usar accesos directos con wperl nada mejor que PAR y crear con el comando 'pp' un exe con la opción --gui para que no aparezcan las consolitas.