Bon, j'avance petit à petit, cependant, je n'arrive pas :

Ni à supprimer les lignes que je veux ni à faire un remplacement;

J'aimerai bien savoir si mes variables sont bien interprétées dans mon expression régulière, car je ne rentre pas dans la boucle suivante de substitution....

Voilà à quoi ressemble désormais mon script :



#!/usr/bin/perl -w

############################################################­#
# Programme perl de parcours de fichiers dans un rértoire. #
# Recherche d'une expression regul dans ces fichiers. #.....#
# Suppressions de nombreuses lignes, une fois l'expReg trouv#
############################################################­#
# help : http://www.unix.org.ua/orelly/perl/


$chemin = "/home/boites_test";
opendir REP, $chemin
or die "impossible d'ouvrir le repertoire : $!";
@fichiers = readdir REP;
closedir(REP);

foreach $fichier (@fichiers)
{
# si la valeur retournee est un repertoire
# je passe a la suite :
# next if ($fichier eq "." or $fichier eq "..");
next if -d $fichier;
$full_path="$chemin/$fichier";
print "$full_path\n";


# verifier les droits d'ecriture sur le fichier...
##################################################
open(FILE, "+< $full_path")
or die ("probleme a l'ouverture du fichier : $!" );

#print "$fichier\n";
my @ligne = <FILE>;
#my $chaine = "carton J-F Kahn\.pdf";
my $chaineDeb = "carton J-F Kahn\.pdf";
my $chaineFin = "-------NWM";
my $remplacement = "Cette piece jointe a ete supprime pour cause de surcharge serveur.";
my $i=0;
foreach $ligne(@ligne)
{
#if ($ligne=~/$chaine/)
if ($ligne=~ m/$chaineDeb.*$chaineFin/)
{
print "trouvee";
$ligne=~ s/$chaineDeb.*$chaineFin/$remplacement/;
}
#{
#while ($i<10)
# {
# print "un moulin !!^^\n";
# chomp ($ligne);
# $i++;
# }
#}
}
close(FILE);

Salut,


Précision : comme dit en commentaire, le but est de supprimer plusieurs lignes une fois la regExp trouvée.

si ton but est toujours celui là alors tu compliques bien les choses

si tu veux supprimer les lignes qui contennent une regex (c'est ça que j'ai compris) tu n'as qu'à écrire tout bête

while (<>){
                          # à remplacer motif avec ta regex
    print unless /motif/; # je saute la ligne correspondant au motif
}

perl script.pl mon_test.txt > resultat.txt

Pour ne pas dire que sous linux une seule commande avec rgrep ou find combiné avec egrep souffira :-)) lami20j

Et attention, si tu ne travaille dans le répertoire courant ça ne va pas marcher
next if -d $fichier;

tu dois écrire

next if -d $chemin/$fichier

Bonjour,

Merci,

Non, en fait, je veux supprimer un groupe de ligne, situé entre 2 expressions dans tous les fichiers d'un répertoire, et non pas juste la ligne où se trouve l'expression régulière.

exemple de fichier texte :


blablablabla
totototototot
bubu
mqldkfqdjf
smeflkeh
ok
klsdjfklsjd
kdsjfk

Il faut alors supprimer tout ce qui se trouve entre bubu et ok ; la ligne bubu et ok étant comprises.

Salut,

pour sauter des paragraphes on peut utiliser

while(<>){
  # on supprime les paragraphe
  # compris entre motif_debut et motif_fin
  print unless /motif_debut/.../motif_fin/;
}

Je t'ai envoyé un mp avec un exemple de fichier à modifier.

J'attend de tes nouvelles, merci.