[Perl] Funcion cmd

Hola a todos

Acabo de hacer esta funcion cmd() para poder ejecutar comandos
de forma comoda

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#By pr0xXx0r use Win32::Job; sub cmd { my $job = Win32::Job->new; $job->spawn("cmd",qq{cmd /C $_[0]},{ no_window => "true", stdout => "logx.txt", stderr => "logx.txt" } ); $ok = $job->run("30"); open (F,"logx.txt"); @words = <F>; close F;

Ejemplo de uso

1 2	@re = cmd("ver"); print @re;