Discussion :

[crow56]

Bonjour,

Sauriez-vous en perl, comment ajouter dans un fichier, des lignes avant la ligne d'après ?
Pour être plus précis, j'ai un fichier initial et un fichier final avec les modifications (ajout des lignes avant une autre ligne) :

fichier initial : texte_debut.txt
[TITRE1]
…
[/TITRE1]

[SOUS_PARAGRAPHE]
La table a été déplacée.
Un nouveau meuble est installé.
[/SOUS_PARAGRAPHE]

[TITRE2]
…
[/TITRE2]

************************
fichier d'arrivée : texte_final.txt
[TITRE1]
…
[/TITRE1]

[PARAGRAPHE]
Le soleil se lève.
[/PARAGRAPHE]
[SOUS_PARAGRAPHE]
La table a été déplacée.
Un nouveau meuble est installé.
[/SOUS_PARAGRAPHE]

[TITRE2]
…
[/TITRE2]

************************

Je veux en perl, ajouter avant la balise [SOUS_PARAGRAPHE] le texte :
[PARAGRAPHE]
Le soleil se lève.
[/PARAGRAPHE]

Je pense lire le fichier initial, faire les modifications en mémoire puis copier le tout dans un autre fichier.
Le problème, c'est que je ne sais pas comment dire en perl :

dès que perl voit la ligne [SOUS_PARAGRAPHE], ajouter juste avant ça, le texte suivant :
[PARAGRAPHE]
Le soleil se lève.
[/PARAGRAPHE]

Merci de votre aide.

[magicshark]

Euh tu peux être plus claire car là je vois que ton texte dans paragraphe devient le texte dans sous paragraphe et vice versa.

du coup si c'est toujours ça tu peux faire :

Si c'est exactement comme écrit :

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
use strict;
open (my $fic,"<","./paragraphe_sousparagraphe.txt") or die "pas possible";
open (my $ficout,">","./paragraphe_sousparagrapheOUT.txt") or die "pas possible";
my $text =<<'FIN_PARA';
[PARAGRAPHE]
Le soleil se lève.
[/PARAGRAPHE]
FIN_PARA
 
while(my $l = <$fic>){
    if($l =~ s/\[PARAGRAPHE\]/\[SOUS_PARAGRAPHE\]/){
        print {$ficout} $text;
        print {$ficout} $l;
    }else{
        $l =~ s/\[\/PARAGRAPHE\]/\[\/SOUS_PARAGRAPHE\]/;
        print{$ficout} $l;
    }
}
 
close $fic;
close $ficout;

devrait fonctionner

[Lolo78]

Je n'ai pas l'impression que c'est ce que demande crow56. Il me semble qu'il veuille juste ajouter les trois lignes suivantes:

Code :

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

1
2
3
4
 
[PARAGRAPHE]
Le soleil se lève.
[/PARAGRAPHE]

avant l'occurrence de [SOUS-PARAGRAPHE]. Du coup, les substitutions seraient en trop. En reprenant seulement la boucle while de ton code, il faudrait peut-être ceci:

Code :

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

1
2
3
4
5
6
7
 
while (my $l = <$fic>) {
    if ($l =~ (/\[PARAGRAPHE\]/) {
        print $ficout $text;
    }
    print $ficout $l;
}

[magicshark]

Effectivement après que l'auteur est éditer son fichier je comprend mieux le problème donc oui ta solution est mieux.