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

[Philou67430]

Il y a tout de même une limitation de Net::Telnet sous Windows, indiquée dans la documentation :

Timing-out while making a connection is disabled for machines that don't support the alarm() function. Most notably these include MS-Windows machines.

[tissam89]

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

Merci pour votre réponse.

Des fichiers csv sous linux ?

cela veut dire que sépare les informations par des ";" ?

Et utiliser cette ligne de code pr lire le fichier ?

Code :

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

 my($HOSTADDRESS, $HOSTNAME) = split(/ ;/);

Merci pour votre réponse

[6ril23]

Merci pour votre réponse.

Des fichiers csv sous linux ?

cela veut dire que sépare les informations par des ";" ?

Et utiliser cette ligne de code pr lire le fichier ?

Code :

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

 my($HOSTADDRESS, $HOSTNAME) = split(/ ;/);

En fait, un fichier csv n'est rien d'autre qu'un fichier texte dont chaque colonne est séparé par 1 caractère défini (';' par exemple) ce qui permet aussi de pouvoir facilement le visualiser dans excel qui "interprète" ce caractère pour créer les colonne ET de pouvoir facilement le traiter sous tous les OS
Attention si tu traites ces fichiers sous linux aux caractères de fin de ligne car: sous windows -> \r\n et sous linux ->\n seulement donc si tu découpes par ligne (~split par \n) il risque de rester des \r en fin de chaine dans ta dernière colonne ce qui ne va pas permettre la connexion car le HOSTNAME ne sera pas reconnu

Pour ton bout de code, si ton fichier est un vrai fichier csv, il n'y a pas d'espace dans le split car format csv= col1;col2;...