Discussion :

[mirascheat]

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.

[nematoad]

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

N

[mirascheat]

Le fichier est de cette forme :

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
...
xxx
begin
xxx
...
xxx
end
xxx
...
xxx
begin
xxx
...
xxx
end
xxx
...

Et j'aimerais :
sous fichier 1

Code :

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

1
2
3
4
5
begin
xxx
...
xxx
end

sous fichier 2

Code :

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

1
2
3
4
5
begin
xxx
...
xxx
end

[Jedai]

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 :

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
 
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ï

[nematoad]

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 :

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

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

[Jedai]

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 :

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

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

--
Jedaï

[mirascheat]

Code :

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

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

[mirascheat]

up merci