• Publicidad

Renovar variables

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Renovar variables

Notapor BigBear » 2010-06-11 20:05 @878

Hola.

Ando teniendo un problema con el siguiente código.
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Win32::Process::List;
  2.  
  3. &ya;
  4. sub ya {
  5. system 'cls';
  6. my $new = Win32::Process::List->new();  
  7. my %process = $new->GetProcesses();
  8. for my $pid (keys %process) {
  9. print "$pid\n";
  10. }
  11.  
  12. print "opcion = 1 = ver\n";
  13. print "escoge:";
  14. $op = <STDIN>;
  15. chomp $op;
  16. if ($op eq "1") { &ya; }
  17. }
Coloreado en 0.002 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?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado