[Perl] Supprimer plusieurs lignes

Dadishome69 -
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention - 1 oct. 2009 à 10:37

Bonjour,
Je cherche comment supprimer plusieurs lignes dans un fichier à l'aide d'un script en Perl. J'aimerais supprimer dans ce fichier, toutes les lignes comprises entre ligne1 (qui contient la chaine str1) et ligne2 (qui contient la chaine str2). Les lignes ligne1 et ligne2 doivent aussi etre supprimées.
Je vois comment faire ca en sed sous unix mais j'ai besoin de pouvoir faire ca en Perl.

Merci d'avance pour votre aide ;)

Configuration: Windows 2003
Firefox 3.0.4

Afficher la suite

2 réponses

Réponse 1 / 2
Dadishome69

up
0
Réponse 2 / 2
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 571
Salut,
```
#!/usr/bin/perl -i.orig
use strict;use warnings;

while(<FIC>){
    print "$_" unless /str1/ ... /str2/;
}
```
P.S. Je n'ai pas testé
0

[Perl] Supprimer plusieurs lignes

2 réponses

Discussions similaires

Newsletters