Split d'un fichier entre 2 patterns

Bonjour,
J'ai un fichier texte avec un couple de deux chaines de caracteres qui apparait à plusieurs reprises.
En fait je voudrais "splitter" ce fichier texte en plusieurs sous fichiers avec pour chaines de début et de fin de chaque sous fichier les 2 patterns.
Je débute et je n'ai pas bien vu comment je pouvais utiliser au mieux la fonction split dans mon cas.
Par avance merci de toute aide.

Ça dépend ce que tu veux faire. Tu peux poster un petit exemple de données, pour avoir une idée ?

N

Le fichier est de cette forme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

... xxx begin xxx ... xxx end xxx ... xxx begin xxx ... xxx end xxx ...

---

Et j'aimerais :
sous fichier 1

Code:

---

1 2 3 4 5

begin xxx ... xxx end

---

sous fichier 2

Code:

---

1 2 3 4 5

begin xxx ... xxx end

---

C'est pas encore ultra-clair... On jette tout ce qui ne se trouve pas entre un begin et un end consécutifs ?

Le plus simple est encore de faire une petite machine à état :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my $i = 0; my $p = 0; my $fout = "Fichier_"; my $fhout; while( <INPUT> ){ if( /^begin\s*$/ ){ $i++; $p = 1; open $fhout, '>', $fout.$i or die "Can't open $fout$i : $!\n"; } if( $p ){ print $fhout $_; } if( /^end\s*$/ ){ $p = 0; close $fhout; } }

---

Ce code devra être adapté s'il risque d'y avoir des emboîtements (ce que tu n'as pas précisé non plus).

--
Jedaï

Je me disais que tes données pourrait avoir une gueule comme ça. En ce cas, tu peux utiliser le fabuleux opérateur ... comme suite :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#! /usr/local/bin/perl   my $part = 0;   while( <> ) { if( /^begin/ ... /^end/ ) { if( /^begin/ ) { my $file = sprintf('part-%04d', ++$part); open OUT, '>', $file or die "Ne peut ouvrir $file en sortie: $!\n"; } print OUT; } }

---

C'est pas tous les jours qu'on a la chance, mais c'est un chouette opérateur.

N

Cool ! Je l'avais oublié celui-là (faut dire qu'on ne s'en sert pas tous les jours, ;) ). Néanmoins toujours la même recommandation : ne pas utiliser ce code en cas d'emboîtement.

Du coup avec ton code on peut en faire un uniligne honorable :

Code:

---

perl -ne "if(/^begin/ ... /^end/){open O,sprintf('part-%04d', ++$p) if /^begin/;print O}" Mon_fichier_à_découper

---

--
Jedaï

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#! /usr/local/bin/perl   my $part = 0;   while( <> ) { if( /^begin/ ... /^end/ ) { if( /^begin/ ) { my $file = sprintf('part-%04d', ++$part); open OUT, '>', $file or die "Ne peut ouvrir $file en sortie: $!\n"; } print OUT; } }

---

Merci.
Mais j'aurais quelques questions (de débutant) :
1- à quel moment je spécifie le fichier sur lequel je vais appliquer mon script perl (je suppose que qd je le lance, je fais toto.pl fichier.txt mais je n'en suis pas sûr, et comme ca ne marche pas je ne sais pas d'où vient mon erreur).
2- Je sens qu'il va falloir que j'apprenne les expressions régulières car mon begin est de la forme : Toto: TITI (de même que mon end) et je pense que : if(/^Toto: TITI/ ... ca ne marche pas
3- Que fait l'instruction : sprintf('part-%04d', ++$part)
4- Qu'appeles-tu "fabuleux opérateur" ?
Encore merci.
Thomas

up merci :mrgreen: