Foro - Perl en Español

Hola a todos y gracias por atenderme.

Estoy intentando hacer un programa en Perl que me permita realizar ping a un rango determinado de IP. Estaba pensando, en vez de ir haciendo ping de una a una, dividir el nº de IP en 5 listas y pasarle dichas listas a 5 hilos para que cada uno se encarge de realizar el ping a todos los componentes de su lista. El problema que tengo es que me sale el siguiente error:


El código que uso es el siguiente y lo uso en Windows XP:


Para simplificar el código no pongo cómo se incluyen en cada una de las listas @lista1, @lista2, ..., @lista5

Bienvenido a los foros de Perl en Español, estudiante.

Prueba a colocar un '\' delante de los '&', dentro de los create().

El método create() espera una referencia a una subrutina. Si pones solamente '&' lo que estás haciendo es llamar a la subrutina, en ese momento.

Y los argumentos deben ir aparte. Quedaría algo así:



Más información, en threads.

P.D.: Los paréntesis alrededor de $hilo1 son importantes, para que threads sepa que realizarping() devuelve una lista, no un escalar.

Hola, explorer, aún colocando la barra invertida dentro del create() me sigue dando el mismo fallo.

Me he dado cuenta que el primer fallo empieza en la línea 73, creo que la numeración del primer código que te envié está mal. Esta segunda está correcta.

También tengo la siguiente duda: cuando se ejecuta la línea 73, no pasa a ejecutar la línea 74 hasta que termina de ejecutar el procedimiento realizarping(), o pasa a ejecutar la línea 74 aunque no haya acabado el procedimiento realizarping.

Un saludo.

73 my ($hilo1) = threads->create(\&realizarping(@lista1));
74 my ($hilo2) = trheads->create(\&realizarping(@lista2));
75 my ($hilo3) = trheads->create(\&realizarping(@lista3));
76 my ($hilo4) = threads->create(\&realizarping(@lista4));
77 my ($hilo5) = threads->create(\&realizarping(@lista5));

79 my @resultado1 = $hilo1->join();
80 my @resultado2 = $hilo2->join();
81 my @resultado3 = $hilo3->join();
82 my @resultado4 = $hilo4->join();
83 my @resultado5 = $hilo5->join();

87 sub realizarping{
88 print("Comienza la ejecución del hilo\n");
89
90 foreach $direccion_ip (@_){
91 my $alive = ping(host =>$direccion_ip, count => 1,timeout => 1 );
92 if ($alive){print "Ping conseguido en $direccion_ip\n";
93 }else{print "No ha hecho ping $direccion_ip\n";
94 };
95 }
96 return ( 0 , 'Finalización correcta');
97 }

salida que da con el error:

Por favor, vuelve a repasar mi contestación anterior: no has escrito bien las líneas 73 a 77.

A propósito... hay al menos un módulo en CPAN que hace lo que quieres: Net::Ping::Network.

Puedes mirar su código fuente, para que te sirva de inspiración.

Hola, explorer, gracias por la ayuda. Efectivamente estaba colocando mal las instrucciones 73 a 77. Me concentraba solo en los paréntesis de $hilo1, $hilo2... y lo que estaba mal realmente era el paso de los parámetros y que la palabra threads estaba mal escrita . Ahora funciona correctamente. Miraré de todas forma el módulo que me indicas.

Un saludo y gracias de nuevo.

estudiante escribiste:y que la palabra threads estaba mal escrita

¡Ahí va! Ni me di cuenta

Hola de nuevo, explorer.

Tengo otro problema con el código: no me escribe por pantalla todas las IP por las que pasa el bucle. No sé si es por el Windows o por que hay algo mal, es muy raro

Si te fijas hay IP que no salen. Ejemplo: 192.168.1.13. Y debería de haber pasado por ella. Te adjunto el código de nuevo y su correspondiente salida por pantalla.


La salida que me da:

Pues... no lo sé...

En mi Linux, sí que me funciona.

Esta es mi versión:
Ejemplo de salida:

De todas maneras, el uso de threads es siempre problemático: en muchas ocasiones te encuentras que el perl que tienes instalado en tu máquina no está compilado con soporte de Threads:
(sacado de uno de mis servidores con Debian)

A veces se puede instalar de forma sencilla:
$ apt-get install libthreads-perl

pero otras veces no. Y luego está el tema del sistema operativo. Linux no es lo mismo que Windows. Y no es lo mismo los hilos de Perl que el del sistema operativo.

En el documento perldoc perlthrtut tienes una explicación de esto:

Es muy importante recordar cuando estemos gestionando hilos Perl, que los hilos Perl no son hilos X, para todos los valores de X. No son hilos POSIX, o hilos Dec o hilos Green de Java, o hilos Windows. Hay similitudes, y los conceptos generales son los mismos, pero si empieza a mirar los detalles de la implementación, se encontrará decepcionado o confundido. Posiblemente las dos cosas a la vez.

Hay otras soluciones. La más completa es usar AnyEvent, pero también se puede usar cualquiera de los módulos de los que depende: EV, Event, Glib, Event::Lib, Irssi, rxvt-unicode, IO::Async, Qt, FLTK y POE. También existe Coro (hilos cooperativos). En Windows, además, hay una serie de distribuciones específicas para la gestión de procesos.

Hola, explorer, gracias por contestar. He probado en un linux y funciona correctamente. Las cosas del Windows...

Un saludo.