[perl] soucis regexp et parcours dir
LittleBouda
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
LittleBouda Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
LittleBouda Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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\n";
# 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\n";
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\n");}
#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+
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\n";
# 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\n";
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\n");}
#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+
A voir également:
- [perl] soucis regexp et parcours dir
- Win dir stat - Télécharger - Gestion de fichiers
- Dir/s - Forum Autoit / batch
- Mes parcours google - Guide
- Commande dos -> DIR - Forum Windows
- Kif n dir traduction ✓ - Forum Musique / Radio / Clip
7 réponses
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
lami20j
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
}et tu exécutes le script avec la commande
perl script.pl mon_test.txt > resultat.txt--
lami20j
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\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);
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\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);
pour ne pas dire que sous linux une seule commande avec rgrep ou find combiné avec egrep souffira :-))
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 $fichier;
tu dois écrire
next if -d $chemin/$fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
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
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 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
