Ver Tema

maguiTO · 2011-06-05 18:13 @800

Hola, soy programador de scripts para mIRC. Tengo un robot de trivias hecho a mi gusto y antojo. Mi idea es traducir el código a Perl. Necesitaría algo de ayuda. Claro que no espero que me lo hagan; sino, no entendería nunca el funcionamiento. Quiero aprender algo de Perl mientras hago mi proyecto. ¿Estoy en el lugar correcto?

Desde ya muchas gracias.

explorer · 2011-06-05 18:23 @807

Bienvenido a los foros de Perl en español, maguiTO.

Este es el lugar correcto si necesitas ayuda para tu proyecto.

Si quieres aprender Perl, comienza por Por dónde empezar.

También hay algunos hilos al respecto del IRC. Usa el sistema de búsqueda.

maguiTO · 2011-06-05 18:39 @818

Gracias por la bienvenida explorer, estoy leyendo un poco y tengo una duda con un ejemplo...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my @array = ('Perro','Gato','Gallina','Pez');
 
my $animal = $array[3];

¿Por qué la variable es Pez y no Gallina?

explorer · 2011-06-05 18:46 @823

Porque los arrays se basan en índice 0. Entonces [3] se refiere al cuarto elemento.

Más información en perldoc perldata.

Estas dudas sobre Perl, es mejor hacerlas en el foro Básico.

maguiTO · 2011-06-08 13:48 @617

Investigando un poco bastante y leyendo logré conectar el bot al IRC

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Net::IRC;
 
$server = 'irc.Servi.dor';
$chan = '#Canal';
$nick = 'ApodoBOT';
$user = 'id';
$realname = 'Proyecto: Bot en perl';
 
$irc = new Net::IRC;
 
$conn = $irc->newconn(Nick => $nick, Server => $server, Port => 6667, Username => $user, Ircname => $realname);
 
$conn->add_handler('376', \&on_connect);
 
sub on_connect {
  my $self = shift;
  $self->join($chan);
}
 
$irc->start;

Ahora necesitaría saber si hay algún tipo de temporizador que deba estudiar. En scripting está /timer <repetición> [tiempo] <comando>

Les doy un ejemplo de lo que quiero lograr:

Syntax: [ Download ] [ Hide ]

Using javascript Syntax Highlighting

alias ejemplo {
  timer  1 10 alias_1
  timer  1 20 alias_2
  timer  1 30 alias_3
}
 
alias alias_1 { msg $chan Este es el primer timer que se activo a los 10 segundos de ejecutar "ejemplo" }
alias alias_2 { msg $chan Segundo timer a los 20 segundos }
alias alias_3 { msg $chan Tercer y ultima acción que seria a los 30 }

No soy muy bueno expresándome. Ténganme paciencia XD

explorer · 2011-06-08 14:06 @629

En Perl no es directo la creación de temporizadores.

Hay infraestructuras, como la de POE, por ejemplo, que permite un uso asíncrono del código, y con algunas posibilidades de crear esos temporizadores.

Otra forma, un poco más burda, sería que el programa generara un hijo por medio de un fork(), y que esté hijo lo único que hiciera fuera esperar (sleep) un cierto tiempo, sacar el mensaje al canal, y luego morir.

Estoy casi convencido que los módulos especializados en IRC, en el CPAN, tienen mejores formas de hacer esto.

Por ejemplo, el módulo Bot::BasicBot tiene la función schedule_tick(), que llamará a la función tick() pasado el tiempo indicado. Lo malo es que solo se puede indicar un periodo de tiempo.

También tiene la función forkit(), para hacer lo comentado antes.

Publicidad

Socializa