[Perl] Supprimer plusieurs lignes

Question

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 ;)

Dadishome69 · Answer

up

lami20j · Answer

Salut,

#!/usr/bin/perl -i.orig
use strict;use warnings;

while(<FIC>){
    print "$_" unless /str1/ ... /str2/;
}
  
P.S. Je n'ai pas testé

[Perl] Supprimer plusieurs lignes

2 réponses

Discussions similaires

Newsletters