[Perl] Supprimer plusieurs lignes

Fermé

Dadishome69 - 30 sept. 2009 à 12:16
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 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 ;)

A voir également:

[Perl] Supprimer plusieurs lignes
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Supprimer edge - Guide
Supprimer bing - Guide
Supprimer compte facebook - Guide

2 réponses

Réponse 1 / 2

Dadishome69
1 oct. 2009 à 09:44

Réponse 2 / 2

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
1 oct. 2009 à 10:37

Salut,

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

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

P.S. Je n'ai pas testé

Discussions similaires

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters