Discussion :

[tissam89]

Bonjour,
J'ai ecri un script qui li un fichier qui contient une liste d'adresse en entrée, et qu'il fait un show cdp neighbors au niveau de chaque équipement .

Mon script perl :

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
 
#!/usr/bin/perl
#use strict;
use Net::Telnet;
open(HOSTS, "Hosts.txt");
mkdir("Hosts") if(!-d("Hosts"));
open(MODEL_CFG, ">Hosts/hosts");
 while(<HOSTS>) {
 chomp();
# my($HOSTADDRESS, $HOSTNAME, $communaute, $interfaces) = split(/ +/);
 my($HOSTADDRESS, $HOSTNAME) = split(/ +/);
print $HOSTADDRESS,"\n";
#print $HOSTNAME ;
 $telnet = new Net::Telnet ( Timeout=>20,Errmode=>'die');
 $telnet->open($HOSTADDRESS);
 $telnet->waitfor('/Username: $/i');
 $telnet->print('USER');
 $telnet->waitfor('/password: $/i');
 $telnet->print('PASSWORD');
 $telnet->waitfor('/#$/i');
 $telnet->print("show cdp neighbors");
 my @output = $telnet->waitfor('/#$/i');

tout marche bien ,
au niveau d'une certaine ligne de mon fichier d'entrée, j'ai cette erreur :

Code :

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

pattern match timed-out at ./Hosts.pl line 21

line 21 = my @output = $telnet->waitfor('/#$/i');

Pourtant qu'il lit bien un grand nombre d'adresse dans le fichier en entrée au debut .

Quand je fait un telnet manuellement sur l'équipement , cela marche bien .


Comment résoudre cela svp ?

[tissam89]

Comment ecrire une boucle qui fait un espace ( idéal, parceque j'utilise etrer qui est moins efficace) ,jusqu'à trouver #

do {
$telnet->print("\n");
}
until ($telnet->waitfor('/#$/i'); //Je ne connais pas trop le language perl , je sais pas comment dire jusqu'à trouver /#

my @output = $telnet->waitfor('/#$/i');


Aidez moi svp

[6ril23]

Je connais pas telnet mais pour ton problème d'expression je peux peut être aider
/#$/i -> signifie que tu cherches un '#' à la fin quelque soit la casse (majuscule/minuscule)

si tu cherches un '#', /#/ devrait suffire.

[Philou67430]

Ta boucle est correcte, mais lorsque le pattern n'est pas reconnu, le méthode définie par le paramètre du constructeur nommé "errmode" est appelée. Du coup, tu sors de ta boucle avec un die.
Tu dois donc appeler ton waitfor avec une autre valeurs :

Code :

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

1
2
3
4
do {
$telnet->print("\n");
}
until ($telnet->waitfor(Match => '/#$/i', Errmode => "return");

De cette manière, ta boucle pourra continuer silencieusement.
Cela dit, j'ajouterais, au moins pendant la phase de mise au point, l'enregistrement du log (input_log et/ou dump_log).

Code :

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

1
2
3
4
5
6
$telnet->input_log("log.txt");
do {
$telnet->print("\n");
}
until ($telnet->waitfor(Match => '/#$/i', Errmode => "return");
$telnet->input_log("");

[tissam89]

Merci pour vos réponses .

J'ai reglé le probleme en augmentant la taille de la fenetre dans mon routeur ( pas besoin d'appuyer sur espace pour avoir tt le resultat ).

Maintenant le souci est que je veux executer mon script sur windows, mais il marche pas . Est ce qu'il y a des choses qu'il faut adapter ??

Une autre question svp, moi je lit un fichier en entrée qui la forme suivante :

Code :

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

adresse    nom

je veux lire un fichier excell au lieu de mon fichier text, est ce que c possible d'avoir un fichier excell sous redhat 5 ? qu'est ce qu'il faut installer comme package pour cela SVP ?

je vous remercie pour votre aide

[6ril23]

Maintenant le souci est que je veux executer mon script sur windows, mais il marche pas . Est ce qu'il y a des choses qu'il faut adapter ??

normalement non rien n'a besoin d'être adapté (attention à la version de perl pour ne pas introduire de biais liés à ce fait) sauf peut être les formats de path

je veux lire un fichier excell au lieu de mon fichier text, est ce que c possible d'avoir un fichier excell sous redhat 5 ? qu'est ce qu'il faut installer comme package pour cela SVP ?

Je te conseillerais plutôt de traiter des fichiers .csv (facile à faire dans excel et très facile à traiter ensuite) en séparant les champs par le classique ';' ou autre si besoin