maching template de conf d'AP

Hello,

j'ai besoin d'aide sur la partit où je compare la conf de l'AP à un template
en gros, AP cisco 1600, je me connecte en telnet et j'execute un show run, puis je compare à un template de quelques lignes

excel contient la liste d'ip et recupere les resultats

je coince sur le "like" ou "substring" multi-ligne
m/ ne semble pas s'en sortir dans ce cas


voici le code source réduis là où ça coince

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

if($p->ping($IP)) { print "Ping $IP succes\n"; my $session = Net::Telnet::Cisco->new(Host => $IP) or die "Oops, cannot open $IP"; $session->login('admin', '*****') or die "Oops, cannot connect to $IP"; my @output = $session->cmd('sh run ssid TEST') or die "Oops, cannot execute telnet command";     if ( $output["CMD_INFO"] =~ m/vlan 1/ ) { print "Result: YES\n"; } else { print "Result: NO\n"; } $session->close; } else { print "Ping $IP Fail!\n"; @output = "timeout"; }

---

En effet si je m/ sur des mots de la premeire ligne du resultat stocké dans @output cela me met YES, mais si je m/ sur un mot en ligne >2 ça mets NO
J'ai cherché pas mal de temps déjà, avec grep ou en substituant le \n par rien... je n'y parvient pas.

Peut etre que vous pourriez m'aider?

merci
cordialement
Julien

Les tableaux sont indexés par des nombres entiers. Donc, cette ligne:

Code:

---

1 2	if ( $output["CMD_INFO"] =~ m/vlan 1/ )

---

n'est pas correcte, puisque l'index n'est pas numérique. Si tu utilisais les pragmas:

Code:

---

1 2 3

use strict; use warnings;

---

comme tu devrais toujours le faire pour tout programme de plus d'une ligne, tu aurais eu un warning:

Code:

---

1 2	Argument "CMD_INFO" isn't numeric in array element at ...

---

te prévenant d'un problème dans ton programme.

Dans un tel cas, $output["CMD_INFO"] est transformé en $output[0], et, donc, tu récupères toujours uniquement le premier élément du tableau (et donc tu as une reconnaissance uniquement quand la chaîne recherchée est dans le premier élément).

Il faut donc que tu boucles sur les éléments du tableau, par exemple:

Code:

---

1 2 3 4

for (@output) { print "Result: YES\n" if /vlan \d/; }

---

L'autre solution est de stocker le résultat de ta commande dans une variable scalaire:

Code:

---

1 2 3 4 5 6 7

my $output = $session->cmd('sh run ssid TEST') or die "Oops, cannot execute telnet command"; if ( $output =~ m/vlan 1/ ) { print "Result: YES\n"; } else { print "Result: NO\n"; }

---

Je ne peux pas tester, mais je pense que ça devrait marcher.

Dans tous les cas, si tu veux des informations complémentaires (ou si ça ne marche pas comme prévu), donne-nous le contenu de la variable @output ou $output selon la solution envisagée.

Super! merci pour ta réponse, je vais regarder de plus pret!
entre temps je l'ai fais fonctionner avec ça:

if (grep m/vlan 1/i, @output)