[Net::SSH::Expect] Utilisation du module

Version imprimable

20/03/2013, 11h56
JLChelin

[Net::SSH::Expect] Utilisation du module

Bonjour,

je suis débutant dans le monde de PERL, j'ai un environnement Windows NT sous ECLIPSE.

Je souhaite ouvrir une connection avec des SWITCHS CISCO en utilisant le module Net::SSH::Expect

lors de la compilation j'ai ces erreurs ???:8O

Bareword "exp_continue" not allowed while "strict subs" in use at C:/Perl/site/lib/Expect.pm line 203.
Compilation failed in require at C:/Perl/lib/Net/SSH/Expect.pm line 10.
BEGIN failed--compilation aborted at C:/Perl/lib/Net/SSH/Expect.pm line 10.
Compilation failed in require at F:/Jean-Louis/Perl/exercices de FAQ PERL/FAQ_SSH_CISCO.pl line 4.
BEGIN failed--compilation aborted at F:/Jean-Louis/Perl/exercices de FAQ PERL/FAQ_SSH_CISCO.pl line 4.

je vous remercie par avance pour votre aide.
20/03/2013, 13h17
Lolo78

Bonjour,

peux-tu donner le code du script qui échoue?

Bonjour,

je te fournis le code, l'erreur interviens à la compilation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
#use strict;
use warnings;
use Net::SSH::Expect;
my $ssh = Net::SSH::Expect->new(
host => '111.22.333.44',
password => 'psw',
user => 'moi',
raw_pty => 1
);
my $enable_passwd = "cisco";
my $login_output = $ssh->login();
$ssh->send("enable");
$ssh->waitfor( 'Password:\s*\z', 1 ) or die "prompt 'password' not found after 1 second";
my $ls = $ssh->exec("show vlan");
print "$ls\n";
#Première façon de récupérer une sortie longue:
$ssh->send("show running-config");
while ( my $line = $ssh->read_line() ) {
print "$line\n";
}