Perl [Perl] Funcion cmd()

[Doddy]

Hola a todos

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

>
#By Doddy H

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 = ;
close F;

unlink("logx.txt");

return @words;

}

Ejemplo de uso

>
@re = cmd("ver");
print @re;