Foro - Perl en Español

por **yoya5682** » 2009-12-09 14:22 @640

Bueno, quisiera saber un módulo completo que me ayude a hacer lo siguiente:

* Entrar al irc, claro.
* Mandar un mensaje a un usuario que entre, p.ej.: Bienvenido usuario 'x'.

Quisiera poder crearle funciones al Bot, y que me responda, p.ej.:
* Una función que sume, que podría llamarla así: !suma 1+2 Y él me respondería y me daría el resultado; claro, estaré, pasándoles los comandos por el irc, en este caso fue !suma.

* También para modificarlo que me responda solo a mi los comandos y no a cualquiera.

PD: Los comandos los mandaré por el irc que ya estarían programados; y acepto sugerencias.

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

No eres el único ni el primero que ha sacado el tema de los Bots para IRC.

De momento, echa un vistazo al último comentario sobre el asunto.

También puedes mirar un desarrollo completo de un IRC escrito en Perl, hecho por el usuario MidNight (y unos mensajes más abajo, el del usuario ubuntu).

También el usuario kamikaze mandó una cuestión referente a POE::Component::IRC, que es la forma moderna de controlar todo lo relacionado con IRC.

por **yoya5682** » 2009-12-09 16:57 @748

Oka, vamos al paso creando el irc bot. Bueno, aquí ya tengo este pedazo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POE::Component::IRC;
 
#Escribimos el nombre del bot Y la direccion del irc
$nick = 'Yoya-Bot';
$serve = 'irc.perl.org';
$ircname = 'ircnode.com';
 
#Canales
my $irc = POE::Component::IRC->spawn( 
    nick => $nick,
    ircname => $ircname,
    server => $server,
 ) || die "Coneccion fallida";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que no sé si se conecta y tampoco sé cómo le haría para conectarme a un canal luego.

por **explorer** » 2009-12-09 19:33 @856

¡Uuuyyyy!... así no se hacen las cosas, con POE...

Para programar en POE, hay que entender unos cuantos conceptos, y no son nada triviales. Y no se aprenden en una tarde (quizás en tres).

Solo tienes que mirar la sinopsis del módulo POE::Component::IRC para ver un ejemplo completo.

por **yoya5682** » 2009-12-10 16:00 @708

Oka, he estado viendo algunos irc bot y encontre este, lo he modificado y cortado hasta la parte que entiendo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$servidor = "irc.com";
$puerto = "6667";
$nick = "Lex";
$admin = "Yoya";
$lex = "Lex";
$canales = ":#canal";
$conectado = 0;
$comandos = "No hay todavia";
###############
 
use IO::Socket;
 
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$servidor", PeerPort => "$puerto") || print "Imposible conectar.\n";
 
&IRCSend ("NICK $lex");
&IRCSend ("USER Lex-Bot es tu amigo");
 
while($conexion=<$socket>)
{
print $conexion;
 
if ($conexion=~/PING :/)
{
        &IRCSend ("PONG $'");
        $conectado = 1;
}
 
if ($conectado == 1)
{
        ######### Entrar a canales #########
        if ($conexion=~/001/)
        {
                @canaless = split(/:/ , $canales);
                for($i=0;$i<@canaless;$i++)
                {
                &JOIN("$canaless[$i]");
                }
        }
}
}
 
 
sub IRCSend { print $socket "$_[0]\n"; }
sub JOIN { IRCSend("JOIN $_[0]\n"); }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Oka, lo que quiero es tratar que me responda los comandos o parámetros que le envío. Espero que sepas lo que trato de decir, también al principio del post lo he dicho.

por **explorer** » 2009-12-10 16:09 @714

¿Ese código lo has hecho tu?

Se parece mucho a este, que está más completo. Te faltan muchas cosas ahí.

También se comenta aquí.

por **yoya5682** » 2009-12-10 16:21 @723

Solo miré para que pueda entrar al irc, luego lo demás quiero ir haciéndolo yo mismo.

por **yoya5682** » 2009-12-10 16:45 @740

Bueno, estoy tratando de hacer que me responda pero me da problemas al ejecutar el script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#Modulos
use IO::Socket;
 
#Datos principales
$serv = 'irc';
$canal = '#canal';
$port = '6667';
 
#Datos sobre el bot
$nick = 'Lex';
$bot = 'Lex-bot';
$jefe = 'Yoya';
 
#Creamos el socket
my $sock = IO::Socket::INET->new(
                PeerAddr => "$serv",       
                PeerPort => "$port",       
                Proto    => 'tcp' ) || die "conexión fallida\n";
 
while(<$sock>) {
    
    $datos = $_;
    print $datos;
    
    if ($datos =~ /NOTICE AUTH/ig){
    
    &envia("NICK $nick \n");   
    &envia("USER $bot x x x x\n")
   }
        if ($datos =~ /^PING :/i)                
        {
        &envia("PONG :$'");             
        }
        &envia("join $canal")
       #Vamos a comensar a ejecutar comandos
       if ($recividos =~ m/:(.+)!(.+)@(.+)\s(.+)\s(.+)\s:(.+)\s(.+)/ig)
       {
       $usuario = $2;
       $tipo = $4; 
       $donde = $5;
       $comando = $6;
        }
        
}
sub envia
{print $sock "$_[0]\n";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-12-10 18:07 @796

A ver... lo que no puedes es publicar todo el código que encuentras por Internet y probar a ver si funciona. Tampoco lo que debes hacer es ir variando de código, porque entonces no resolvemos ninguno. Y lo tercero: date cuenta que estás en el foro Intermedio, así que eso implica que no vas a recibir respuestas tan claras como quisieras.

Una respuesta típica de este foro sería: en el enlace que te he puesto antes está el código COMPLETO de un bot para IRC (mensaje del día 8 de julio de 2006, y otros dos más a continuación). Así que solo te queda bajarlo, cambiar los datos de conexión al IRC en que quieres probar y ejecutarlo y ver si se conecta. Y luego, modificar el sitio del programa donde responde a los comandos del administrador. Y si salen errores, los publicas y te ayudamos.

Yo acabo de hacer eso mismo: me lo he bajado y lo estoy arreglando (para actualizarlo al Perl del 2009) y luego lo pruebo, pero es casi seguro que no tenga que hacer ningún cambio.

Tu puedes hacer lo mismo.

por **yoya5682** » 2009-12-10 18:27 @810

Este último código que he posteado, fui yo que lo hice a base del tutorial que me pasaste al principio del post, el bot se me conecta al IRC y todo y se queda, no hay ningún problema con esa parte, ahora el problema es que al parecer no me identifica los comandos y ese es mi problema.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#Modulos
use IO::Socket;
 
#Datos principales
$serv = 'ir';
$canal = '#canal';
$port = '6667';
 
#Datos sobre el bot
$nick = 'Lex';
$bot = 'Lex-bot';
$jefe = 'Yoya';
$comandos = 'En este momento estan disponible los comandos: %coment.';
#Creamos el socket
my $sock = IO::Socket::INET->new(
                PeerAddr => "$serv",       
                PeerPort => "$port",       
                Proto    => 'tcp' ) || die "conexión fallida\n";
 
while(<$sock>) {
    
    $datos = $_;
    print $datos;
    
    if ($datos =~ /NOTICE AUTH/ig){
    
    &envia("NICK $nick \n");   
    &envia("USER $bot x x x x\n")
   }
        if ($datos =~ /^PING :/i)                
        {
        &envia("PONG :$'");             
        }
        &envia("join $canal");
 
        #Comensamos a crear las funciones
      
        if ($datos =~ m/^:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s:(\S*)\s(.+)\s(.+)/ig)
        {
         #Damos valores ah algunas variables   
         $usuario = $2; #Tengo el usuario registrado y solo reconocera el nick registrado
         $tipo = $4; 
         $donde = $5;
         $comando = $6;
         $text = $7;
         #Leiendo canal y reconociendo comandos del jefe
         if ($jefe eq $usuario){ 
         
         if($comandos eq "#help"){&envia($comandos);}
 
 
     }   
 }
        
}
sub envia
{print $sock "$_[0]\n";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este es el código que tengo ahora mismo hecho y redacto que se conecta al IRC y todo y se mantiene, el problema es que no me identifica el comando correctamente.

Foro - Perl en Español

[IRC]Bot que responda

[IRC]Bot que responda

Publicidad

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

¿Quién está conectado?