Bonjour tt le monde,

Pourriez-vous m'aider sur un ptit programme en perl ?
Voilà, je souhaiterai me connecter sur un switch hp et récupérer les adresses mac des machines.

Le programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use Net::SSH::Perl;
 
my $username="";
my $passwd="";
my $host = "adr_switch";
 
print header;
my $t = new Net::SSH::Perl (Timeout=>undef) or die "impossible de se connecer";
$t->open($host);
$t->login($username, $passwd);
my @lines = $t->cmd("sh arp");
print join (' ', @lines);
Qd je compile le programme, j'ai un msg :
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /etc/perl /usr/local/lib/pe rl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/pe rl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at test2.pl line 2.
BEGIN failed--compilation aborted at test2.pl line 2.
Il y a pas un pb aussi avec "new" ?

Merci de votre aide.