Discussion :

[JLChelin]

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

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.

[Lolo78]

Bonjour,

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

[JLChelin]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";
}