Discussion :

[pratheep]

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.

[djibril]

Il faut que tu installes le module

[pratheep]

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

[thierry.chich]

Oui, c'est vicieux.
apt-get install libnet-ssh-perl installe le module Net::SSH.
Pour installer Net::SSH:erl, 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.