Bonjour, voici mon problème: j'ai un fichier texte dans lequel je veux rechercher la chaine "interface vlanX". Jusque là tout est ok
sauf qu'une fois cette chaine trouvé je veux récupérer la ligne suivante du fichier, puis la chaine suivante avec sa ligne etc...
Mon fichier (extrait):
code:!
interface vlan3
description PROD
!
interface vlan7
description IMPRESSION
!
interface vlan128
ip address 1.1.2.2/24
!
Comment faire pour avoir la ligne "ip address..." par exemple? Merci de votre aide.
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 use strict; use warnings; my $filename = "d:\\dev_perl\\cisco.cfg"; open (FIC, '<', $filename) or die "Erreur : impossible d'ouvrir le fichier '$filename'"; my @fic = <FIC>; foreach my $ligne (@fic) { chomp($ligne); ### recherche de la commande interface vlan ### while ($ligne=~m/interface vlan(\w*)/) { my $testvlan = $1; print ("interface vlan$testvlan\n"); last; } } close (FIC);
Partager