QUestion sur le module telnet

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

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

--
Jedaï

j'ai essayé cela :

Code:

---

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:

---

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:

---

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

---

mais j'ai l'erreur suivante :

Code:

---

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 ?

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:

---

$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ï

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:

---

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

---

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:

---

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