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 = <F>;
close F;
 
unlink("logx.txt");
 
return @words;
 
}
 
 

Ejemplo de uso

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