Pages : 1
#1 Le 27/11/2008, à 01:42
- diiie
[perl] installez la Net::IRC
Bonsoir, je veux faire un bot irc en perl et je dois installez pour ça la Net::IRC, je l'ai téléchargé, perl makefile.PL, make, make install.
Voila le code :
#!/usr/bin/perl
use strict;
use warnings;
use Net::IRC;
# Configuration des options de connexion (serveur, login) :
my $server = 'irc.2600.net';
my $nick = 'MrPropre';
my $channel = '#hackbbs-quizz'
;
# Informations concernant le Bot :
my $ircname = 'Mr Propr';
my $username = 'Mr Propre';
my $version = '1.0';
# On crée l'objet qui nous permet de nous connecter à IRC :
my $irc = new Net::IRC:
# On crée l'objet de connexion à IRC :
my $conn = $irc->newconn(
'Server' => $server,
'Port' => 6667,
'Nick' => $nick,
'Ircname' => $ircname,
'Username' => $username
);
$conn->add_handler('376', \&on_connect);
$conn->add_handler('public', \&on_public);
$irc->start();
sub on_connect
{
my ($conn, $event) = @_;
$conn->join($channel);
$conn->privmsg($channel, 'Yop !');
print "<$nick>\t| Salutations !\n";
$conn->{'connected'} = 1;
} # Fin on_connect
sub on_public
{
my ($conn, $event) = @_;
my $text = $event->{'args'}[0];
print "<" . $event->{'nick'} . ">\t| $text\n";
} # Fin on_public
Et voila ce que m'affiche la console :
die@laptop:~$ ./Programmation/Perl/botirc.pl
"my" variable $irc masks earlier declaration in same statement at ./Programmation/Perl/botirc.pl line 21.
"my" variable $server masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 22.
"my" variable $nick masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 24.
"my" variable $ircname masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 25.
"my" variable $username masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 27.
"my" variable $conn masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 29.
"my" variable $conn masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 30.
"my" variable $irc masks earlier declaration in same scope at ./Programmation/Perl/botirc.pl line 32.
syntax error at ./Programmation/Perl/botirc.pl line 18, near "new Net::IRC:"
Execution of ./Programmation/Perl/botirc.pl aborted due to compilation errors.
Apparemment le lib n'a pas été installé, que dois-je faire ??
Pages : 1