Hola.
Ando teniendo un problema con el siguiente código.
use Win32::Process::List;
&ya;
sub ya {
system 'cls';
my $new = Win32::Process::List->new();
my %process = $new->GetProcesses();
for my $pid (keys %process) {
print "$pid\n";
}
print "opcion = 1 = ver\n";
print "escoge:";
$op = <STDIN>;
chomp $op;
if ($op eq "1") { &ya; }
}
El problema es que al recargar con la opción 1 , el programa siempre muestra los mismos pids ...
News of Foro - Perl en Español