Discussion :

[izeggaghene]

Bonjour a tous;

je suis débutant en perle, je veux faire un script pour copier une partie de un fichier a autre fichier, le script que j'ai fait copié une seule linge et après sort de la boucle.
voila mon script:

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
            if ($rec =~ /premier indi/)
            {
            $F=1;                    
            }           
 
            if (($rec =~ /2eme indi/) && ($F == 1))
                {                 
                     print FILEOUT $rec;
 
            }
 
            if ($rec =~ /'H/)
            {
                     $F=0;
                        }

mon objectif est de copier la partie entre 2eme indi et 'H (2 ligne ou 3 ligne) et continuer la recherche
quelqu'un m'aider et merci

[Woufeil]

Bonjour,

Il faut que tu nous donne plus de code. Tu parles de boucle, or je n'en vois pas !
Le défaut de ton code, c'est qu'il ne copie la ligne que si elle contient 2eme indic, or ce n'est pas que tu veux. La condition de ton 2ème if est mauvaise.
Et je ne comprend pas à quoi sert le première indicateur également...

Bref, donne nous plus de détails !

[izeggaghene]

Bonjour et merci pour ta réponce.
voile tout le programme.

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
19
20
21
22
23
24
25
26
27
28
 
#!/agl/tools/perl/current/bin/perl
 
$F=0;
open(FILEIN, "fichier") || die "cannot open $FILE_NAME \n";
open(FILEOUT, ">sortie.txt") || die "cannot open $FILE_NAME_TMP \n";
 
while ($rec = <FILEIN>){
 
			if ($rec =~ /Titre/) 
			{
			$F=1;
			}
 
			if (($rec =~ /debut de paragraphe/) && ($F == 1))
		        {
 
		             print FILEOUT $rec;
 
			}
 
			if ($rec =~ /fin de paragraphe/)
			{
		             $F=0;
                        }
}
close(FILEIN);
close(FILEOUT);

mon objectif est de copier tout les paragraphes(peut comport 3 lignes) ayant le titre "Titre" et qui commence par "debut de paragraphe" et se termine par "fin de paragraphe"
dans le fichier source on peut trouvé 100 paragraphes et moi je vx récupérer les 100.
le script ça marche mais je recupere tjr une seule ligne de la paragraphe exemple :
debut de paragraphe fffffttttfsdfdsf
debut de paragraphe xxxxxxxxxxxxxx
debut de paragraphe fjhjhjhjhjhjhjhj
...

[Woufeil]

Bonjour,

Il y a plusieurs solutions à ton problème. Celle qui va le plus dans ta logique serait d'utiliser 2 variables servant d'indicateur et non une seule (dans ton cas $F).

Quand ta ligne contient titre, tu met un indicateur à 1. Quand ta ligne comprend debut de paragraphe, tu met ton second indicateur à 1, quand les deux indicateurs sont à 1 tu copies dans le fichier destination, quand tu atteint fin de paragraphe tu remet tes deux indicateurs à 1.

Sinon, deux petits conseils : déclare tes variable avec my, ça t'évitera de faire des erreurs plus tard, et évite les noms de variables en majuscule, cela peut faire penser que ta variable est en fait une constante.
Sinon, pour tes if qui ne contiennent qu'une instruction, préfère cette syntaxe :

Code :

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

$f=1 if ($rec =~ /Titre/) ;

Cela racourcira ton code et le rendra plus lisible