Discussion :

[Skanking]

Bonsoir,

je debute en programmation perl et je suis en train d'ecrire un script permettant la mise a jour de firmware sur une serie de switch.
Pour cela j'utilise le module telnet et j'execute des commandes sur le switch certaine commandes entraine une question afin de confirmer un choix (dans le style : Do you want to continue?[Y/N])
je souhaiterais que mon script puisse pouvoir repondre "Y" ou "N" automatiquement

est ce possible de realiser ce type d'action en perl , si oui peut on me mettre sur la voie.

d'avance merci

[Jedai]

Tu peux probablement le faire en modifiant le "prompt" à reconnaître.

--
Jedaï

[Skanking]

j'ai essayé cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my $prompt ='/.*[\$#:>\]\%] *$/';
my $username = "xxxxxx";
my $passwd = "xxxxx";
 
$telnet = new Net::Telnet (Timeout => 120, Prompt => $prompt);
$telnet->open(Host => $host);
$telnet->login($username, $passwd); 
 
print "Telechargement du fichier de configuration ....\n";
$telnet->cmd("tftp 10.0.0.5 get config.cfg");
$telnet->waitfor("Do you want to continue?[Y/N]");
$telnet->print("Y");
print "Terminé\n\n";

mais il me met une erreur sur le waitfor

Code :

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

1
2
 
missing opening delimiter of match operator in argument "Do you want to continue?[Y/N]" given to Net::Telnet::waitfor() at ./testperl.pl line 12

j'ai essayer avec cette synthaxe ci :

Code :

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

$telnet->waitfor("/^Do you want to continue?[Y/N] */");

mais j'ai l'erreur suivante :

Code :

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

bad match operator: Unmatched [ in regex; marked by <-- HERE in m/Do you want to continue?[ <-- HERE Y/ at ./testperl.pl line 12

est bien comme cela que l'on modifie le prompt ?

[Jedai]

C'est à cause du "[Y/N]", il le prend pour une classe de caractère, mais avec le / qui finit la regexp... Bref ça ne lui plait pas du tout, je te mets une solution :

Code :

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

$telnet->waitfor('/Do you want to continue *\?\[Y\/N\] */');

Par ailleurs je ne suis pas sûr du tout que tu puisses utiliser cmd() et waitfor() comme ça, il vaut mieux n'utiliser que print() et waitfor() pour plus de sûreté.

--
Jedaï

[Skanking]

merci Jedai ca fonctionne de ce coté par contre tu a parlé de probleme si on utilise cmd() et waitfor() ensemble peux tu etre plus precis car il s'avere que j'ai des problemes pour executé une commande , la connexion fonctionne , j'arrive bien sur le prompt de mon serveur telnet mais les commande ne s'execute pas, cela dis j'ai le meme probleme en utilisant un

Code :

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

$tel->print("ma commande");.

[Skanking]

c'est bon mes commandes s'execute bien par ailleurs je n'arrive toujours pas a repondre a une question automatiquement existe t-il une autre methode que :

Code :

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

1
2
3
 
$telnet->waitfor("/^Do you want to continue?[Y/N] */");
$telnet->print("Y");

j'ai entendu parler du module expect mais je ne trouve pas d'exemple ressemblant a mon cas