POE:: Component:: IRC is een volledig gebeurtenis-gedreven IRC cliëntmodule.

SYNOPSIS

# De eenvoudige Rot13 encryptie van A bot

strikt gebruik;
gebruiks waarschuwingen;
gebruik POE qw (Component:: IRC);

mijn $nickname = Flibble. $$;
mijn $ircname = Flibble de Zeeman Bot;
mijn $ircserver = irc.blahblahblah.irc;
mijn $port = 6667;

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

# Creëren wij een nieuwe voorwerp poCo-IRC en een component.
mijn $irc = POE:: Component:: IRC->spawn (
inkeping => $nickname,
server => $ircserver,
haven => $port,
ircname => $ircname,
) of matrijzen „Oh noooo! $! “;

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

$poe_kernel->run ();
uitgang 0;

sub _start {
mijn ($kernel, $heap) = @_ [PIT, HOOP];

# Krijgen wij zittingsidentiteitskaart van de component van het voorwerp
# en register en verbind met de gespecificeerde server.
mijn $irc_session = $heap-> {irc} - >session_id ();
$kernel->post ($irc_session => register => allen);
$kernel->post ($irc_session => verbinden => {});
undef;
}

sub irc_001 {
mijn ($kernel, $sender) = @_ [PIT, AFZENDER];

# Word op elk ogenblik het componentenvoorwerp door de tot hoop van toegang te hebben
# de AFZENDER
mijn $poco_object = $sender->get_heap ();
de druk „verbond met“, $poco_object->server_name (), „n“;

# In om het even welke gebeurtenissen irc_* zal de AFZENDER de zitting poCo-IRC zijn
$kernel->post ($sender => sluiten zich aan bij $ => _) voor @channels;
undef;
}

sub irc_public {
MIJN ($KERNEL, $SENDER, $WHO, $WHERE, $WHAT) = @_ [PIT, AFZENDER, ARG0, ARG1, ARG2];
mijn $nick = (verdeel/! /, $who) [0];
mijn $channel = $where-> [0];

als (mijn ($rot13) = $what =~/^rot13 (. +)/) {
$rot13 =~ RT [a-zA-z] [n-za-Mn-ZA-m];
$kernel->post ($sender => privmsg => $channel => „$nick: $rot13“);
}
undef;
}

# Registreerden wij voor alle gebeurtenissen, zal dit wat zuivert info produceren.
sub _default {
mijn ($event, $args) = @_ [ARG0. $#_];
mijn @output = („$event: “);

foreach mijn $arg (@$args) {
als (ref ($arg) eq SERIE) {
duw (@output, „[“. treed toe („,“, @$arg). „]“);
} anders {
duw (@output, „$arg“);
}
}
de druk STDOUT treedt, @output, „n“ toe;
terugkeer 0;
}

POE:: Component:: IRC is een POE component (whod? hebben verondersteld) welke handelingen als gemakkelijk controleerbare cliënt IRC voor uw andere POE componenten en zittingen. U cre downloaden