Sujet Précédent Sujet Suivant

[Perl] Supprimer plusieurs lignes

Dadishome69 -  
lami20j Messages postés 21506 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 ;)
Configuration: Windows 2003
Firefox 3.0.4

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

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Supprimer l'historique de commandes et d'achats sur Amazon
Matthew5 -
Adraen -

25 réponses