[PERL] extraire une chaine de caractères sur 2 lignes d'un fichier txt

Version imprimable

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):

Citation:

!
interface vlan3
description PROD
!
interface vlan7
description IMPRESSION
!
interface vlan128
ip address 1.1.2.2/24
!

code:
Code:

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);
Comment faire pour avoir la ligne "ip address..." par exemple? Merci de votre aide.

Bonjour,
comme tu as mis ton fichier dans un tableau, il faut, quand tu rencontres une ligne "interface vlan" mettre un flag à vrai (par ex. 1) et, quand tu lis une ligne tu tableau vérifier la valeur du flag (s'il est vrai, alors traiter la ligne et récupérer l'IP s'il y en a une) et remettre le flag à faux. Le pseudo-code de la boucle pourrait être quelque chose comme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 my $flag = 0; my ($id, $ip); for (...) { if (/vlan(\d+)/) { $id = $1; $flag = 1 } if ($flag) { $ip = ... $flag = 0 } }
Dans ton code, je ne comprends pas pourquoi tu fais un while, alors qu'il faudrait, si je comprends ce que tu cherches à faire, un if.

Personnellement, je ne chargerais pas le fichier dans un tableau mais lirais les lignes du fichier au fur et à mesure.
Code:

1 2 3 4 5 6 7 8 while (my $ligne = <FIC>) { if ($ligne =~ /interface vlan(\d+)/ ) { my $id = $1; my $next_line = <FIC>; # ... chercher une IP dans $next_line et l'utiliser } }

Bonjour,
Merci à toi pour ton aide rapide.
Je post pour ceux que cela intéresse le script complété:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
use strict;
use warnings;
 
my $filesource = "d:\\dev_perl\\x610.cfg";
my $filedest = "d:\\dev_perl\\cisco.cfg";
 
open (FIC_ENT, '<', $filesource) or die "Erreur : impossible d'ouvrir le fichier '$filesource'";
open (FIC_SORT, '>>', $filedest) or die "Erreur : impossible d'ouvrir le fichier '$filedest'";
 
	### recherche de la commande "interface vlan" dans le fichier source 
while (my $ligne = <FIC_ENT>) {
    if ($ligne =~ /interface vlan(\d+)/ ) 
	{
        ### ecriture du $id dans le fichier destination 
		my $id = $1;
		print (FIC_SORT "!\n");
		print (FIC_SORT "interface vlan $id\n");
        # chercher une IP dans $next_line et l'utiliser
		my $next_line = <FIC_ENT>;
 
			if ($next_line =~/ip address (\d+.\d+.\d+.\d+)/ ) 
			{
				# ecriture de $ip dans le fichier destination
				my $ip = $1;
				print (FIC_SORT "ip address $ip 255.255.255.0\n");
			}
    }
}
close (FIC_ENT);
close (FIC_SORT);

La lecture par ligne n'est pas une fatalité, sans pour autant slurper tout le fichier d'entrée, tu peux modifier le séparateur d'enregistrement localement pour te simplifier la tâche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings;
 
my $filesource = "d:\\dev_perl\\x610.cfg";
my $filedest = "d:\\dev_perl\\cisco.cfg";
 
open (my $fh_src, '<', $filesource) or die "Erreur : impossible d'ouvrir le fichier '$filesource'";
open (my $fh_dst, '>>', $filedest) or die "Erreur : impossible d'ouvrir le fichier '$filedest'";
 
{
    local $/ = "interface vlan";
    while (<$fh_src>) {
        next unless /^(\d+)\n(?:ip address ([\d.]+))?/;
        print $fh_dst "!\ninterface vlan $1\n", $2 ? "ip address $2 255.255.255.0\n" : "";
    }
}