Foro - Perl en Español

por **BigBear** » 2014-01-07 11:55 @538

Pasó lo que dije: se estanca en el primer while(), por eso dije que no sabía cómo hacerlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(1) {
sleep 10;
print $soquete "PRIVMSG $canal : hola mundo de ***\r\n";
}
 
while (<$sockete>) # while que comprueba la conexión
{
# Aquí compruebo que el socket esté conectado; si no, cierro el hilo que...
# ...envía los mensajes y reconecto al canal irc
}
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

use threads;
 
# identificarse en el canal y etc... 
 
my $idhilo = threads->new(\&HolaMundo); # creamos el hilo que enviará mensajes
 
$idhilo->join(); # lanzamos el hilo
 
while (<$sockete>) # while que comprueba la conexión
{
    # aquí hacemos lo que tengamos que hacer, si falla la conexión sale del while y se cierra el hilo.
}
 
$idhilo->exit(0);   # si llegamos aqui es porque el while falla, cerramos el hilo.
 
exit(0);
 
sub HolaMundo
{
    while(1) {
                sleep 10;
                print $soquete "PRIVMSG $canal : hola mundo de ***\r\n";
        }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

@explorer con '==' tambien funciona correctamente :roll:

por **BigBear** » 2014-01-07 12:41 @570

No sé si es porque solo tengo un núcleo en el procesador pero el código hace que deje de funcionar la detección de comandos como !help. Intenté poner también en otro thread a la otra parte que vendría a ser la detección de comandos pero sigue el mismo problema: no detecta nada y lo único que anda bien es el while() que saludo diciendo "hola mundo".

por **Aceitunas** » 2014-01-07 12:46 @573

No tiene nada que ver que tengas un núcleo... Tienes que estar haciendo algo mal, si puedes poner el código igual podemos solucionártelo también.

por **BigBear** » 2014-01-07 12:51 @577

Claro : http://pastebin.com/wrV7rhZW

por **explorer** » 2014-01-07 15:29 @687

Aceitunas escribiste:@explorer con '==' también funciona correctamente

Parece que funciona pero, no es así.

$4 contiene el comando, así que suponemos que es una cadena de caracteres.

El operador de comparación '==' es NUMÉRICO, por lo que va a hacer una conversión NUMÉRICA de los operandos, así que escribir esto:

if ($4 == "!crackit") {

quiere decir que $4 es convertido a número, y "!crackit" también es convertido a número.

Si $4 contiene alguna cadena de caracteres que no empieza por números, esa conversión da 0. Y de "!crackit", lo mismo.

Así que, entonces tenemos la operación '0 == 0', que siempre es verdadera. Por eso ves que funciona, pero no como pensabas.

Prueba: cambia en $var, la parte "!crackit", por cualquier otra (por ejemplo, "!craqueo"), y verás que también funciona el if(), cosa que no debería.

Por eso, la comparación de cadenas debe realizarse siempre con operadores alfanuméricos. Debes usar 'eq'.

por **BigBear** » 2014-01-07 17:31 @771

Dejo el proyecto acá. Le agradezco a los dos por la ayuda. Debería poner a los dos en los créditos. Mañana agrego eso.

por **Aceitunas** » 2014-01-07 19:38 @860

@explorer tienes razón

por **BigBear** » 2014-01-08 10:05 @462

Sí, es lo que pasa cuando intentas corregir a explorer.

Foro - Perl en Español

Duda con conexión con IRC

Re: Duda con conexión con IRC

Publicidad

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

Re: Duda con conexión con IRC

¿Quién está conectado?