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 :
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.


