Net::SSH::Expect matcher avec la commande waitfor

**caramon _majere** · 14/06/2014, 19h42

Bonjour,

Je suis actuellement sur laboratoire de test sur GNS3 pour un routeur CISCO et j'utlise dedans virtualbox pour le client Linux

En m'inspirant d'un script à disposition sur le site (http://perl.developpez.com/faq/perl/...heriques-CISCO) et du site metacpan (https://metacpan.org/pod/distributio...SSH/Expect.pod) j'ai pu du client Linux me connecter en SSH sur le routeur et faire un SCP pour rapatrier la configuration sur le client.

Ca marche mais c'est moche car j'utilise des sleep avec un délai d'attente au doigt mouillé au lieu des waitfor.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl 
use strict;
use warnings; 
use 5.14.2;  
 
use Net::SSH::Expect; 
 
 
my $ssh = Net::SSH::Expect->new( 
  host     => "192.168.1.1",
  password => 'gns3', 
  user     => 'toto', 
  raw_pty  => 1 
); 
 
 
my $login_output  = $ssh->login();   
my $enable_passwd = "cisco"; 
 
 
$ssh->send("enable"); 
$ssh->waitfor( 'Password:\s*\z', 2 ) or die "prompt 'password' not found after 1 second"; 
$ssh->send($enable_passwd); 
 
### Bloc ou les commandes passées et les résultats s'affichent à l'écran. 
my $line;
# returns the next line, removing it from the input stream:
while ( defined ($line = $ssh->read_line()) ) {
 
$ssh->send("copy running-config scp://alexandre:Templier10!\@192.168.1.2/");
 
### Pause de deux secondes pour laisser le temps d'afficher la commande scp au dessus.
sleep (2);
 
$ssh->send("\r");
$ssh->send("\r");
$ssh->send("\r");
 
print $line . "\n";
 
}
 
print $ssh->peek(0);
 
### Pause de 15 secondes sinon déconnexion trop rapide pour copier le fichier de configuration et échecs.
sleep (15);
 
 print "\n";
 
 
 
$ssh->close();

Ce qui s'affiche à l'écran est :

routeur1_hub#copy running-config scp://toto:tata@192.168.1.2/
Address or name of remote host [192.168.1.2]?
Destination username [alexandre]?
Destination filename [routeur1_hub-confg]?
Writing routeur1_hub-confg Sink: C0644 2745 routeur1_hub-confg
routeur1_hub#

Si les lignes avec "Adresse", "Destination", "Destination" un simple envoie de retour chariot suffit, savoir quand arrive le prompt avec le signe "#" à la fin est important sinon la déconnexion est trop rapide et il n'y pas de transfert possible.

Une idée, des pistes comment matcher le signer à la fin avec la commande waitfor ?

Merci

**Lolo78** · 15/06/2014, 11h41

Je n'utilise pas ce module et ne peux pas tester, mais peut-être quelque chose comme ceci:

Code :

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

$ssh->waitfor(/hub#$/, 5, '-re');

Ou, sans doute mieux:

Code :

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

1
2
3
4
 
my $end_of_input = qr/hub#$/;
# ...
$ssh->waitfor($end_of_input, 5, '-re');

**caramon _majere** · 16/06/2014, 00h45

Lolo !

la seconde solution fonctionne.
Il faut être généreux sur le temps d'attente pour le waitfor sinon ca plante et si le caractère attendue apparaît le script continue.

Ca donne ca

Code :

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

1
2
3
4
my $end_of_input = qr/hub#$/;
$ssh->waitfor($end_of_input, 60,  '-re') or die "prompt 'prompt fin' not found after 1 minute";
$ssh->send("\r");
print "Copie de la configuration réussie\n";

j'avais une petite coquille dans le code en haut, au final ca donne ceci.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
use Net::SSH::Expect; 
 
 
my $ssh = Net::SSH::Expect->new( 
  host     => "192.168.1.1",
  password => 'gns3', 
  user     => 'toto', 
  raw_pty  => 1 
); 
 
 
my $login_output  = $ssh->login();   
my $enable_passwd = "cisco"; 
 
 
$ssh->send("enable"); 
$ssh->waitfor( 'Password:\s*\z', 2 ) or die "prompt 'password' not found after 1 second"; 
$ssh->send($enable_passwd); 
 
### Bloc ou les commandes passées et les résultats s'affichent à l'écran. 
my $line;
# returns the next line, removing it from the input stream:
while ( defined ($line = $ssh->read_line()) ) {
 
$ssh->send('copy running-config scp://toto:tata@192.168.1.2');
 
### Pause de deux secondes pour laisser le temps d'afficher la commande scp au dessus.
sleep (2);
 
$ssh->send("\r");
$ssh->send("\r");
$ssh->send("\r");
 
print $line . "\n";
}
 
print $ssh->peek(0);
 
 
my $end_of_input = qr/#$/;
 
$ssh->waitfor($end_of_input, 30,  '-re') or die "prompt 'prompt fin' not found after 30 seconds";
$ssh->send("\r");
print "Copie de la configuraton réussie\n";
 
$ssh->close();

Par acquis de conscience je suis retourné voir la doc sur metacpan, il est fait mention de qr et -re éparpillé dans la doc pour prendre en compte les expressions régulières ....mais sans plus

**caramon _majere** · 16/06/2014, 18h54

En me basant sur ton idée, j'a même trouvé plus court

Code :

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

$ssh->waitfor(qr/\#$/, 30, );

Ca marche ...mais je ne sais pas pourquoi parce que ca ne ressemble pas trop à la doc sur NET::SSH::Expect et à moitié à l'exemple que je venais de trouver :

Code :

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