Foro - Perl en Español

por **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.

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;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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:

Sintáxis: [ Descargar ] [ Ocultar ]

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 }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **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.

Foro - Perl en Español

mIRC scripting a Perl

mIRC scripting a Perl

Publicidad

Re: mIRC scripting a Perl

Re: mIRC scripting a Perl

Re: mIRC scripting a Perl

Suguiente paso [Bot irc]

Re: mIRC scripting a Perl

¿Quién está conectado?