Ando teniendo un problema con el siguiente código.
Using perl Syntax Highlighting
- 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; }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El problema es que al recargar con la opción 1 , el programa siempre muestra los mismos pids a
pesar de renovar, pues no deberían mostrarse algunos porque ando cerrando algunos programas.
¿Alguien puede ayudarme?
