[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 pub youtube - Accueil - Streaming
Impossible de supprimer un fichier - Guide
Supprimer liste déroulante excel - 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 569
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

EXCEL : Supprimer des lignes vides à la fin