Contenu | Rechercher | Menus

Annonce

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#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 ??