POE:: Teil:: IRC ist eine völlig Ereignis-abhängige IRC-Klientenbaugruppe.

SYNOPSE

# a-einfacher Verschlüsselung Rot13 Bot

strenges verwenden;
Vorsichtshinweise verwenden;
POE qw verwenden (Teil:: IRC);

mein $nickname = Flibble. $$;
mein $ircname = Flibble der SeemannBot;
mein $ircserver = irc.blahblahblah.irc;
mein $port = 6667;

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

# erstellen wir eine neue Nachricht PoCo-IRC und ein Teil.
mein $irc = POE:: Teil:: IRC->spawn (
Einschnitt => $nickname,
Server => $ircserver,
Backbord=> $port,
ircname => $ircname,
) oder „oh noooo sterben! $! “;

POE:: Session->create (
package_states => [
Haupt=> [qw (_default _start irc_001 irc_public)],
],
Haufwerk => {IRC => $irc},
);

$poe_kernel->run ();
herausnehmen 0;

Vor_start {
mein ($kernel, $heap) = @_ [KERN, HAUFWERK];

# erhalten wir die Sitzung Identifikation des Teils von der Nachricht
# und Register und an den spezifizierten Server anschließen.
mein $irc_session = $heap-> {IRC} - >session_id ();
$kernel->post ($irc_session => Register => alles);
$kernel->post ($irc_session => anschließen => {}));
undef;
}

Vorirc_001 {
mein ($kernel, $sender) = @_ [KERN, ABSENDER];

# die Teilnachricht jederzeit erhalten, indem Sie auf das Haufwerk von zurückgreifen
# der ABSENDER
mein $poco_object = $sender->get_heap ();
Druck „anschloß an“, $poco_object->server_name (), „N“ ";

# in jedem möglichem irc_* Ereignisse ABSENDER die Sitzung PoCo-IRC sein
$kernel->post ($sender => anschließen => $ _) n, für @channels;
undef;
}

Vorirc_public {
mein ($kernel, $sender, $who, $where, $what) = @_ [KERN, ABSENDER, ARG0, ARG1, ARG2];
mein $nick = (aufteilen/! /, $who) [0];
mein $channel = $where-> [0];

wenn (mein ($rot13) = $what =~/^rot13 (. +)/) {
$rot13 =~ tr [a-zA-Z] [N-zamangan-ZA-m];
$kernel->post ($sender => privmsg => $channel => „$nick: $rot13“);
}
undef;
}

# registrierten wir für alle Ereignisse, dieses produzieren einiges ausprüfen Info.
Vor_default {
mein ($event, $args) = @_ [ARG0. $#_];
mein @output = („$event: ");

foreach mein $arg (@$args) {
wenn (Hinweis ($arg) eq REIHE) {
drücken (@output, „[“. („,“, @$arg) verbinden. „] ");
} sonst {
Stoß (@output, „$arg“);
}
}
Druck STDOUT verbinden, @output, „N“;
Umsatz 0;
}

POE:: Teil:: IRC ist ein POE-Teil (whod geschätzt?) welches als ein leicht kontrollierbarer IRC-Klient für Ihre anderen POE-Teile und Sitzungen auftritt. An Sie erstellen ein IRC-Teil und mitteilen daß ihm, welche Ereignisse Ihre Sitzung ungefähr interessiert und wo man anschließt und sie interessante IRC-Ereignisse zurückschickt, wenn sie geschehen. Sie lassen den Klienten Sachen tun, indem Sie ihm Ereignisse schicken. Alles das ist dort ist zu ihm. Abkühlen, Nr.?

[Mitteilung, die using diese Baugruppe etwas Vertrautheit mit den Details des IRC-Protokolls erfordert. Identifikation mitteilen Sie en, oben auf den blutigen Details von RFC 1459 zu lesen, bevor Sie begonnen erhalten. Die Liste der numerischen Codes des Servers handlich führen, während Sie programmieren. Unnötig zu sagen, benötigt youll auch guten Arbeitskenntnisse von POE, oder dieses Dokument ist vom sehr wenig Gebrauch zu Ihnen.]
Der POE:: Teil:: IRC-Verteilung hat ein Doc.-Faltblatt mit einer Ansammlung auffallenden Unterlagen einschließlich das passende RFCs.

POE:: Teil:: IRC besteht aus einem POE:: Sitzung, die den IRC-Anschluß handhabt und irc_ vorgesetzte Ereignisse an interessierten Sitzungen und einer Nachricht ausliefert, die verwendet werden können, um auf zusätzliche Information using Methoden zurückzugreifen.

Sitzungen registrieren ihre Zinsen, an, irc_ Ereignisse zu empfangen, indem sie Register zum Teil schicken. Ein tun normalerweise dies in Ihrer _start Zufuhr. Ihre Sitzung fortfährt hre, Ereignisse zu empfangen bis Sie unregister. Das Teil fortfährt en, herum zu bleiben, bis Sie es nicht mit zum Abschalten mitteilen.

Die SYNOPSE zeigt einen ziemlich grundlegenden Bot.