Acabo de hacer esta funcion cmd() para poder ejecutar comandos
de forma comoda
Código
#By Doddy H use Win32::Job; sub cmd { my $job = Win32::Job->new; no_window => "true", stdout => "logx.txt", stderr => "logx.txt" } ); $ok = $job->run("30"); @words = <F>; close F; }
Ejemplo de uso
Código
@re = cmd("ver");