El POE:: Componente:: IRC es un módulo de cliente de IRC totalmente conducido por el acontecimiento.

SINOPSIS

# Un bot de cifrado Rot13 simple

use estricto;
use advertencias;
use POE qw (Componente:: IRC);

mi $nickname = Flibble. $$;
mi $ircname = Flibble el Bot de Marinero;
mi $ircserver = irc.blahblahblah.irc;
mi $port = 6667;

mi @channels = (#Blah, #Foo, #Bar);

# Creamos un nuevo objeto de PoCo-IRC y componente.
mi $irc = POE:: Componente:: IRC-> hueva (
mella => $nickname,
servidor => $ircserver,
vire a babor => $port,
ircname => $ircname,
) ¡o muera "Ah noooo! ¡$!";

Los POE:: Sesión-> crean (
package_states => [
principal => [qw (_default _start irc_001 irc_public)],
],
montón => {irc => $irc},
);

$poe_kernel-> ejecutado ();
salida 0;

suscripción _start {
mi ($kernel, $heap) = _ [GRANO, MONTÓN];

# Conseguimos la identificación de sesión del componente del objeto
# y registre y conecte al servidor especificado.
mi $irc_session = $heap-> {irc}-> session_id ();
El $kernel-> poste ($irc_session => registran => todos);
El $kernel-> poste ($irc_session => conectan => {});
undef;
}

suscripción irc_001 {
mi ($kernel, $sender) = _ [GRANO, REMITENTE];

# Consiga el objeto de componentes en cualquier momento teniendo acceso al montón de
# EL REMITENTE
mi $poco_object = $sender-> get_heap ();
imprima "Conectado a", $poco_object-> server_name (), "n";

# En cualquier acontecimiento irc_* el REMITENTE será la sesión de PoCo-IRC
El $kernel-> poste ($sender => se unen => $ _) para @channels;
undef;
}

suscripción irc_public {
mi ($kernel, $sender, $who, $where, $what) = _ [GRANO, REMITENTE, ARG0, ARG1, ARG2];
¡mi $nick = (¡hendidura/!/, $who) [0];
mi $channel = $where-> [0];

si (mi ($rot13) = $what = ~ / ^rot13 (. +)/) {
$rot13 = ~ tr [a-zA-Z] [n-za-mN-ZA-M];
$kernel-> poste ($sender => privmsg => $channel => "$nick: $rot13");
}
undef;
}

# Nos registramos para todos los acontecimientos, esto producirá alguna información de ajuste.
suscripción _default {
mi ($event, $args) = _ [ARG0.. $#_];
mi @output = ("$event:");

foreach mi $arg ($args) {
si (en cuanto (a $arg) eq MATRIZ) {
empuje (@output, "[]". juntura ("", $arg). "]");
} más {
empuje (@output, "$arg");
}
}
imprima la juntura de STDOUT, @output, "n";
devolución 0;
}

¿el POE:: Componente:: IRC es componente un POE (¿whod han adivinado?) que actúa como un cliente de IRC fácilmente controlable para sus otros componentes POE y sesiones. Usted crea un componente de IRC y lo dice por que acontecimientos su sesión se preocupa y donde conectar a, y esto devuelve acontecimientos de IRC interesantes cuando ellos pasan. Usted hace al cliente hacer cosas enviándolo acontecimientos. Thats todos allí son a ello. ¿Chulo, no?

[Note que la utilización de este módulo requiere un poco de familiaridad con los detalles del protocolo de IRC. La identificación aconseja que usted lea en los detalles sangrientos de la petición de comentarios 1459 antes de que usted empiece. Guarde la lista de servidor códigos numéricos prácticos mientras usted programa. Huelga decir que, youll también necesitan un conocimiento trabajador bueno de POE, o este documento será de muy poco uso a usted.]
El POE:: Componente:: distribución de IRC tiene a unos doctores / carpeta con una colección de la documentación saliente incluso las peticiones de comentarios pertinentes.

El POE:: Componente:: IRC consiste en un POE:: la Sesión que maneja la conexión de IRC y envía los acontecimientos prefijados de irc_ a sesiones interesadas y un objeto que puede estar acostumbrado al acceso métodos de utilización de información adicionales.

Las sesiones registran su interés en recibir acontecimientos irc_ enviando el registro al componente. Uno haría por lo general esto en su tratante _start. Su sesión seguirá recibiendo acontecimientos hasta que usted no registre. El componente seguirá quedándose alrededor hasta que usted lo diga no a con el cierre.

LA SINOPSIS demuestra un bot bastante básico.