[perl] soucis regexp et parcours dir Fermé

Question

Bonjour,

Je me remet au Perl, et j'ai quelques sérieuses difficultés...
En effet, mon script trouve bien le fichier, trouve mon expression régulière, mais visiblement, reste bloqué sur le chomp();

#!/usr/bin/perl -w

#######################################################################
#     Programme perl de parcours de fichiers dans un répertoire.      #
#      Recherche d'une expression régulière dans ces fichiers.        #
#    Suppressions de nombreuses lignes, une fois l'expReg trouvée.    
#######################################################################
# help : https://docstore.mik.ua/orelly/perl/




#$chemin = "/home/test/";
#opendir REP, $chemin
#or die "impossible d'ouvrir le repertoire : $!";
#@fichiers = readdir REP;
#closedir(REP);

#foreach $fichier (@fichiers)
#{
#$full_path=$chemin.$fichier;
#print "$full_path
";


# verifier les droits d'ecriture sur le fichier...
##################################################
open(FILE, '+<C:/Documents and Settings/toto/Mes documents/mon_test.txt')
or die ("probleme a l'ouverture du fichier : $!" );

  #print "$fichier
";
  my @ligne = <FILE>;
  my $chaine ="mon image A\.jpg";
  my $i=0;
  foreach $ligne(@ligne)
    {
    if ($ligne=~/$chaine/)
      {
      $i++;
      while ($i<10)
        {chomp ($ligne);}
      }
    else {printf("mauvaise expression reguliere
");}
    #next FILE;
    }
close(FILE);
#}
exit(0)



Le résultat :
mauvaise expression reguliere
mauvaise expression reguliere
mauvaise expression reguliere
mauvaise expression reguliere
Terminating on signal SIGINT(2)

(dernière ligne obtenue après ctrl+c car bloqué : la chaine trouvée se trouve en effet à la 5° ligne de mon fichier texte...)

Précision : comme dit en commentaire, le but est de supprimer plusieurs lignes une fois la regExp trouvée.


Une petite aide ne serait pas de refus :o)

Merci,
A+

LittleBouda · Answer

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 : https://docstore.mik.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
";


# verifier les droits d'ecriture sur le fichier...
##################################################
  open(FILE, "+< $full_path")
   or die ("probleme a l'ouverture du fichier : $!" );

  #print "$fichier
";
  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 !!^^
";
      #  chomp ($ligne);
      #  $i++;
      #  }
      #}
    }
    close(FILE);

lami20j · Answer

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êtewhile (<>){
                          # à remplacer motif avec ta regex
    print unless /motif/; # je saute la ligne correspondant au motif
}et tu exécutes le script avec la commande

perl script.pl mon_test.txt > resultat.txt--
lami20j

lami20j · Answer

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

lami20j · Answer

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

LittleBouda · Answer

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.

lami20j · Answer

Salut,

pour sauter des paragraphes on peut utiliserwhile(<>){
  # on supprime les paragraphe
  # compris entre motif_debut et motif_fin
  print unless /motif_debut/.../motif_fin/;
}je pense que ça sera mieux si tu me montre un de tes fichiers
et de dire ce que tu veux supprimmer

une des erreurs qui font ceux qui demande
c'est qu'ils ne donnent pas les détails 

par exemple dans le cas des regex c'est imperatif
de connaître la structure de fichiers en entrée
et de savoir ce qu'on veut obtenir en sortie

à toi

LittleBouda · Answer

Je t'ai envoyé un mp avec un exemple de fichier à modifier.

J'attend de tes nouvelles, merci.

[perl] soucis regexp et parcours dir

7 réponses

Discussions similaires