Perl - Net::SSH:Perl

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:

---

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 :

Citation:

---

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.

Il faut que tu installes le module

J'ai installé libnet-ssh-perl et ça s'est installé sans problème.

Oui, c'est vicieux.
apt-get install libnet-ssh-perl installe le module Net::SSH.
Pour installer Net::SSH::Perl, c'est un peu plus hard. C'est du CPAN. Toutefois, il vaut mieux installer préalablement libmath-gmp-bigint-perl et libmath-gmp-perl, libmath-pari.
Ca évite des déconvenues, ces modules sont difficiles à installer via CPAN (pour résumer, ça plante presuqe toujours).

Mais à part ça, ça vaut le coup, c'est un module qui permet de faire de belles choses.