[perl] installez la Net::IRC

Net;;IRC c'est pour chatter, c'est ça ?
Sous quelle distribution linux es-tu ?

Salut,

Tu dois avoir des erreurs.
Pas la peine de faire toutes les commandes si une se finie avec une erreur.

As-tu essayé de chercher le module avec le gestionnaire de paquets?!

Par exemple sous debian il suffit de faire en root

aptitude install libnet-irc-perl

--
106485010510997108

Salut, je suis sur Ubuntu feisty, lami20j : je viens d'essayer d'installer a partir de apt-get, ca me dit que tout est bon mais quand je lance le script (./botirc.pl), ca me dis ça :

die@laptop:~/Programmation/Perl$ ./botirc.pl
"my" variable $irc masks earlier declaration in same statement at ./botirc.pl line 21.
"my" variable $server masks earlier declaration in same scope at ./botirc.pl line 22.
"my" variable $nick masks earlier declaration in same scope at ./botirc.pl line 24.
"my" variable $ircname masks earlier declaration in same scope at ./botirc.pl line 25.
"my" variable $username masks earlier declaration in same scope at ./botirc.pl line 27.
"my" variable $conn masks earlier declaration in same scope at ./botirc.pl line 29.
"my" variable $conn masks earlier declaration in same scope at ./botirc.pl line 30.
"my" variable $irc masks earlier declaration in same scope at ./botirc.pl line 32.
syntax error at ./botirc.pl line 18, near "new Net::IRC:"
Execution of ./botirc.pl aborted due to compilation errors.

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 = '#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| Yop !\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

je pense que c'est plutot une erreur dans le code car meme avec apt-get ca ne marche pas...

salut,

et en enlevant " my " ?

Salut,

L'erreur est là my $irc = new Net::IRC:
Tu as mis deux points à la fin au lieu de point-virgule

my $irc = new Net::IRC;

La syntaxe est correcte après cette modification

lami20j@debian:~/trash$ perl -c botirc.pl 
botirc.pl syntax OK

Re,

Il suffit de lire les messages d'erreur
syntax error at ./botirc.pl line 18, near "new Net::IRC:"

Ah ben ouais, faute de frappe, merci beaucoup !