Discussion :

[goldyfruit]

Bonjour,

J'aimerai pouvoir supprimer une zone de texte présente entre deux balises ainsi que ces deux balises, exemple :

//BEGIN PART1
Super, hier j'ai mangé une pomme.
Et toi ?
//END PART1

J'arrive très bien à effectuer cette action via la ligne de commande suivante :

Code :

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

perl -0777 -pe 's/\/\/BEGIN PART1.*?\/\/END PART1//gs' lecture.txt

Cependant je n'arrive pas à effectuer la même chose à partir d'un script Perl.
Voici le script en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
open LECTURE,"< lecture.txt" or die "E/S : $!\n";
open CORRECTION, "> correction.txt" or die "Impossible de creer le fichier : $!";
while ($ligne = <LECTURE>) {
        chomp ($ligne);
        $ligne =~ s/\/\/BEGIN PART1.*?\/\/END PART1//gs;
        print (CORRECTION "$ligne");
        print (CORRECTION "\n");
}
close CORRECTION;
close LECTURE;

Ca merdouille ou ?
Merci d'avance.

[50Nio]

Le problème c'est que ton expression est sur plusieurs lignes,
mais que dans ta boucle while, tu t'arrête au caractère séparateur de fin de ligne.

Il faire un undef sur $/, qui correspond au charactère séparateur de fin de ligne par défaut.

Code :

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

1
2
3
4
5
6
7
8
 
# Pour que l'expression régulière fonctionne sur plusieurs lignes
undef $/;
 
# Ton code ici
 
# Retour au caractere de fin de ligne normal (unix)
$/ = "\n";

[goldyfruit]

Ca fonctionne. Merci.

[Philou67430]

Dans ce cas de figure, il est très pratique d'utiliser l'opérateur .. :

Code bash :

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

perl -ne 'print if !(/\/\/BEGIN PART1/ .. /\/\/END PART1/)' <lecture.txt >correction.txt

[djibril]

Philou le retour