[Perl] Supprimer plusieurs lignes

Dadishome69 -  
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
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 ;)
A voir également:

2 réponses

Réponse 1 / 2
Dadishome69
 
up
0
Réponse 2 / 2
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut, 

#!/usr/bin/perl -i.orig
use strict;use warnings;

while(<FIC>){
    print "$_" unless /str1/ ... /str2/;
}


P.S. Je n'ai pas testé
0