В теме одно сообщение

[armagidon]

Люди может есть у кого русская документация к модулю Net::IRC ?

[Psixo]

Русского перевода документации нет, так что только на английском,благо примеров кода в сети много, а по ним многое ясно и без перевода ;)

]]>http://search.cpan.o...IRC-0.75/IRC.pm]]>

Вот пример кода (автор LX_D) демонстрирующий основу работы с данным модулем.

#!/usr/bin/perl
################################################
use Net::IRC;

$chnl = "#bot"; # канал

$irc = new Net::IRC;
$conn = $irc->newconn(	Nick	=> 'LX_BOT',
			Server  => 'localhost',
			Port	=>  6667,
			Ircname => 'Comment');

$conn->add_handler('376', \&connected);
$conn->add_handler('msg', \&msg);
$irc->start();

while (1){
handle_trivia_loop($conn);
$irc->do_one_loop();
}

sub connected {
	my $conn = shift;
	$conn->join($chnl);
	$conn->privmsg($chnl, 'Hello everyone!');
	$conn->{connected} = 1;
}

sub msg {
	my ($conn, $event) = @_;
	print STDERR "YOU HAVE A MESSAGE! $event->{nick} # $event->{args}[0] \n";
	$conn->privmsg($event->{nick}, "I'm a bot! 8-D");
}