Foro - Perl en Español

por **explorer** » 2009-12-10 18:41 @820

Bueno, pues ya está... lo he arreglado. No tiene en cuenta todos los casos de conexión, pero al menos me entra en un canal y puedo mandarle órdenes.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Codeado por Firos - Staff
use strict;
use warnings;
 
 
#####DATOS#####
my $servidor = 'irc.freenode.net';
my $puerto   = "6667";
my $nick     = "robot";
my $admin    = "jferrero";
my $sn00py   = "robot";
my $canales  = "#perlenespanol";
my $comandos = "Los comandos actualmente disponibles son: !kick, !ban, !unban, !voice, !devoice, !quit, !part, !join, !commands, !op, !deop. Para poder utilizarlos has de tener privilegios sobre el bot.";
###############
 
use IO::Socket;
 
my $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$servidor", PeerPort => "$puerto") || print "Imposible conectar.\n";
 
&IRCSend ("NICK $sn00py");
&IRCSend ("USER la madre que lotrajo");
 
my $conectado = 1;
 
while(my $conexion = <$socket>)
{
    print $conexion;
 
    if ($conexion=~/PING :/)
    {
        &IRCSend ("PONG $'");
        $conectado = 1;
    }
 
    if ($conectado == 1)
    {
        ######### Entrar a canales #########
        if ($conexion=~/001/)
        {
            sleep 2;
            my @canales = split(/:/ , $canales);
            for(my $i = 0; $i < @canales; $i++)
            {
                print "Entrando en $canales[$i]\n";
                &JOIN("$canales[$i]");
            }
            $conectado = 2;
        }
    }
 
    if ($conectado == 2)
    {
        ######### Aqui empieza la identificacion/ejecución de comandos ###########
        if ($conexion =~ /^\:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s:(\S*)\s(.*)/)
        {
            my $quien = $1; my $comandoserv = $4; my $donde = $5; my $comando = $6; my $patron = $7;
 
            ######### Comandos de canal ########
            if ($quien eq $admin)
            {
                if    ($comando eq "!commands") { PRIVMSG("$donde" , $comandos); }
                elsif ($comando eq "!op") { &IRCSend("MODE $donde +o $patron"); }
                elsif ($comando eq "!deop") { &IRCSend("MODE $donde -o $patron"); }
                elsif ($comando eq "!join") { &IRCSend("JOIN :$patron"); }
                elsif ($comando eq "!quit") { &IRCSend("QUIT :$patron"); }
                elsif ($comando eq "!kick") { &IRCSend("KICK $donde :$patron"); }
                elsif ($comando eq "!ban") { &IRCSend("MODE $donde +b :$patron"); }
                elsif ($comando eq "!unban") { &IRCSend("MODE $donde -b :$patron"); }
                elsif ($comando eq "!voice") { &IRCSend("MODE $donde +v :$patron"); }
                elsif ($comando eq "!devoice") { &IRCSend("MODE $donde -v :$patron"); }
                elsif ($comando eq "!part") { &IRCSend("PART $donde :$patron"); }
            }
        }
 
        ######## Lectura/ejecución por query #########
        if ($conexion =~ /^\:(\S*)!(\S*)@(\S*)\sPRIVMSG\s$sn00py\s\:(\S*)\s(\S*)\s(.*)/)
        {
            my $quien = $1; my $comando = $4; my $canal = $5; my $patron = $6;
 
            if ($admin eq $quien)
            {
                if ($comando eq "!MSG") {IRCSend("PRIVMSG $canal :$patron"); }
            }
        }
 
        ######## Rejoin #########
        if ($conexion =~ /^\:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s(\S*)\s:(.*)/)
        {
            my $quien = $1; my $comandserv = $4; my $donde = $5; my $aquien = $6;
            if ($comandserv eq "KICK") { &JOIN ("$donde"); }
        }
 
    }
 
    ######## Random NICK #########
    if ($conexion=~/^\:(\S*)\s433\s(.*)\s$sn00py(.*)/)
    {
        $sn00py .= int(rand(999));
        &IRCSend ("NICK :$sn00py");
        $conectado = 1;
    }
}
 
####### Subrutinas ########
sub IRCSend { print $socket "$_[0]\n"; }
sub JOIN { IRCSend("JOIN $_[0]\n"); }
sub PRIVMSG { IRCSend ("PRIVMSG $_[0] :$_[1]"); }
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

#Modulos
use IO::Socket;
 
#Datos principales
$serv = 'irc';
$canal = '#canal';
$port = '6667';
 
#Datos sobre el bot
$nick = 'LexeT';
$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
        #:[email protected] PRIVMSG #undersec :a
        if ($datos =~ m/^:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s:(\S*)\s(.+)\s(.+)/ig)
        {
         #Damos valores ah algunas variables   
         $usuario = $1;
         $tipo = $4; 
         $donde = $5;
         $comando = $6;
         $text = $7;
         #Leiendo canal y reconociendo comandos del jefe
         if ($jefe eq $usuario){ 
         
         if($comandos eq "#help"){&msg("$donde", $comandos);}
 
 
     }   
 }
        
}
sub envia {print $sock "$_[0]\n";}
sub msg{ envia("PRIVMSG $_[0] :$_[1]");} 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-12-10 19:08 @839

¿No has probado el bot que he mandado? Ya está completo.

por **yoya5682** » 2009-12-10 20:17 @886

¡Eh!, sí, el tuyo funciona, pero el tuyo es un poco raro, por eso quiero que el mio sea raro igual. Bueno, ahora lo que hice fue meter dentro del if() algo para que lo imprima; así sé si el if() se cumplió correctamente y al parecer no se cumplió correctamente. Aquí te dejo el code para que me digas cual es mi error.

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 = 'LexeT';
$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 = $1;
         $tipo = $4; 
         $donde = $5;
         $comando = $6;
         $text = $7;
         &msg("$donde", $comandos);         #Leiendo canal y reconociendo comandos del jefe
         if ($jefe eq $usuario){ 
         
         if($comando eq "#help"){&msg("#undersec", $comandos);}
 
 
     }   
 }
        
}
sub envia {print $sock "$_[0]\n";}
sub msg{ envia("PRIVMSG $_[0] :$_[1]");} 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

PD: lo agregué en la linea 46; si te fijas no imprime porque la condición if() no se cumple al parecer y ahí debe estar el problema...

por **explorer** » 2009-12-11 05:58 @290

El error está en la línea

&envia("join $canal");

Esa línea debería ir en la parte de conexión inicial. Tal como la tienes ahí fuera, la estás ejecutando a cada momento, por lo que algunos IRC se cansarán y te echarán fuera.

Para saber si el programa traduce bien las líneas que recibe, coloca un print() justo antes de &msg("$donde", $comandos);, con todas las variables, para ver qué valores almacenan. Así sabrás si entra ahí y qué valores son. Y de ahí, saber por qué no entra en el siguiente if().

Actualización: Lo que sí veo mal es que tenga un /g al final. Quítalo.

por **yoya5682** » 2009-12-11 09:30 @437

Ok, ya todo me salió bien y el bot obedece, gracias.

Saludos.

por **explorer** » 2009-12-12 19:35 @857

Este es un bot que me he hecho en un rato, con Bot::BasicBot.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
our $admin = 'jferrero';
our $nick  = 'perla';
 
Bot->new(
    channels => [ '#perlenespanol' ],
    nick     => $nick,
    server   => 'irc.freenode.org',
)->run;
 
package Bot;
use base qw(Bot::BasicBot);
 
sub said {
    my $self    = shift;
    my $message = shift;
    my $body    = $message->{body};
    my $who     = $message->{who};
    my $address = $message->{address} || '';
 
    if ($address) {
        if ($address eq 'msg') {
            $address = $nick;
        }
        $body = "$address, $body";
    }
 
    print "[$body|$address]\n";
 
    sleep 1+rand(3);
 
    if ($body =~ /(?:^|\b)$nick\b/i) {                        # solo dirigido a nosotros               
 
        # Saludo
        if ($body =~ /hola/i) {
            $self->reply($message, "Hola, $who");
        }
        
        elsif ($body =~ /sabes perl\?/i) {
            $self->reply($message, "un poco...");
        }
 
        # Es un robot
        if ($body =~ /\b(?:ro)?bot\b/i) {
            if (rand() < 0.8) {
                $self->reply($message, "no");
            }
            else {
                $self->reply($message, "que no!");
            }
            
            if (rand() > 0.95) {
                $self->reply($message, ":)");
            }
        }
 
#        if ($who eq $admin) {
        if ($body =~ /\bdime\b.*?([\d()\/+*-]+)/i) {
            print "Operacion: [$1]: ", eval($1),"\n";
            $self->reply($message, eval($1));
        }
#        }
    }
    else {
        print "No dirigido a nosotros\n";
    }
 
    return undef;
}
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El bot responde al saludo, insiste en decir que no es robot, y responde a cuestiones matemáticas si se incluye antes la palabra 'dime'.

por **kt0sh** » 2009-12-13 04:16 @220

Hola, buenas noches.

Quisiera pedir un poco de ayuda ya que estoy en mis inicios de Perl y ando algo complicado con el código de mi primera bot.

Resulta que quiero meterle una funciones para que cuando tire comandos, por ejemplo !hex Hola me de el texto traducido a hexadecimal, al igual que agregar respuestas automáticas; por ejemplo, cuando alguien diga Hola el bot automáticamente responda Hola, "Nick" o que alguien diga dime 354354 y el bot diga el número 354354; también le quiero agregar funciones matemáticas, por ejemplo, Binario, suma de binarios, Descrytar Hash y ese tipo de cosas, pero la cuestión es que no sé cómo implementarlo en el código que estoy haciendo. Si me pueden ayudar sería espectacular.

De antemano, gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
##############################################
# PROGRAMA: DA-VINCI BOT.v.0.1               #
# AUTOR:    [[Ktosh]]                        #
# GRACIAS A: Yoyahack, seth y S[e]C          #
##############################################
 
 
#---------------------------------Modulos del Bot--------------------------------------#
use IO::Socket;
 
#---------------------------------Datos principales------------------------------------#
 
$server   = 'ircnode.com';
$port     = '6667';
$canal    = '#undersec';
 
#--------------------------------Datos Del Bot------------------------------------------#
$nick = 'Prote0';
$bot  = 'Prote0';
$adm  = '[[Kt0sh]]';
chomp $adm;
;
#-------------------------------------Respuesta de Comandos----------------------------------#
$help   = "Los comandos Disponibles son : !help, !hi";
$hi     = "hola";
#-------------------------------------Conexión de IO::Socket;-------------------------------#
 
my $sock = IO::Socket::INET ->new(
                     PeerAddr => "$server",
                     PeerPort => "$port",
                     Proto    => 'tcp' ) || die "No hay coneción\n";
 
while(<$sock>){
    my $datos = $_;                      
    print $datos;                     
   
    if ($datos =~ /NOTICE AUTH/i)         
    {      
        &envia("NICK $nick \n");             
        &envia("USER $bot x x x x\n");    
    }
    if ($datos =~ /^PING :/i)
    {
        &envia("PONG  : $'");
    }
    &envia("join $canal");
 
#-------------------------------------Creamos las Funciones---------------------------------#
#:[[Kt0sh]]! 
    if ($datos =~ /^\:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s:(\S*)\s(.*)/)
    {
#-------------------------------------Valores de Variables-----------------------------------#
 
        $usuario = $1;
        chomp $usuario;
        $tipo    = $4;
        $donde   = $5;
        $comando = $6;
        $text    = $7;
                
#-------------------------------------Lector De Canal----------------------------------------#
        if($comando eq "!help") {&msg("#undersec", $help);}
        if($comando eq "!hi")   {&msg("#undersec", $hi);  }
        if($comando eq "!hex")  {&msg("#undersec", $hex); }
                
    }
}
 
#-------------------------------------Funciones----------------------------------------------#
sub envia {print $sock "$_[0]\n";}
sub msg {envia("PRIVMSG $_[0] :$_[1]");}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-12-13 07:01 @334

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

De ese tema hemos hablado hace poco... están publicados varios bots que funcionan, y son fáciles de modificar para que hagan lo que quieres, incluido uno basado en el mismo código tuyo.

por **DaNnY** » 2010-03-11 13:05 @587

Hola, soy nuevo en este foro, andaba buscando tutoriales o manuales de Perl para IRC en español y os encontré a vosotros por suerte.

Me gustaría comenzar un bot para IRC; sus funciones sería la de administrar canales oficiales de mi servidor.

Sus funciones serían las siguientes:

* Dar @ a los moderadores de la red
* Avisar por privado al usuario (normas de la sala)
* Avisar al debug de (spam, mayúsculas, colores, insultos... etc)
* Kickear y Banear si no hay mas @'s en la sala.
* Poner modos automáticamente en caso de no haber más @'s.

" Para comenzar haría esto"

Gracias de antemano.

Foro - Perl en Español

[IRC]Bot que responda

Re: [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

Bot IRC Perl

Re: Bot IRC Perl

Re: [IRC]Bot que responda

¿Quién está conectado?