wtf?

C'est tout bête, mais bien pratique parfois... qui me dit ce que fait ce petit bout de perl en forme d'alias pour irssi? :)

/alias chutchut /script exec use Irssi; $_->command("window close") for \
    ( grep { $_->{active}->{type} eq 'QUERY' } Irssi::windows() );

Perl caibon mangezan.

Cadeau matinal : un mini-bot irc en perl qui écoute sur un port TCP et fait suivre une copie sur les chans où il se trouve. Juste histoire de se familiariser avec POE. :)