Perl

[PERL] regexp avec caractres spéciaux

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] regexp avec caractres spéciaux

xc0r

Bonjour à tous!

j'ai un petit problème stupide:
j'ai une substitution qui ne veut pas fonctionner lorsque j'ai des "caracteres spéciaux" dans la chaine.

Code :

$file = "rep/subdir/00 - [LESS] Various Artists";
$filename = "00_-_[LESS]_Various_Artists"
s/$file/$newfile/;

visiblement, à cause du "[", il ne trouve pas la chaine dans $file ...
et n'étant pas un pro de la regexp je ne sias pas trop comment "protéger" les caractères spéciaux...

Si qqn à une idée,...

Publicité

Aricoh

gentil mais fo po pousser

Bonjour,

soit il manque une info intéressante non montrée ici de ton code, soit je vois 2 erreurs :

s/$file/$newfile/;

1) Où est la variable $newfile ?

2) Telle quelle, ta syntaxe applique le remplacement sur la variable $_

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

xc0r

Merci pour ta réponse

Oui en effet j'ai pas mis tout le code juste la chaine a remplacer et la chaine sensément remplacée.

Le script en entier:

Code :

find ./ -print | tac | /usr/bin/myrename.pl '($file) = (m|.+/(.+)|); $file = $_ if (!defined($file));($newfile = $file) =~ s/ /_/g; s/$file/$newfile/;'

et le script myrename:

Code :

#!/usr/local/bin/perl
#
# Usage: rename perlexpr [files]
($regexp = shift @ARGV) || die "Usage: rename perlexpr [filenames]\n";
if (!@ARGV) {
@ARGV = <STDIN>;
chomp(@ARGV);
}
foreach $_ (@ARGV) {
$old_name = $_;
eval $regexp;
die $@ if $@;
rename($old_name, $_) unless $old_name eq $_;
}
exit(0);

(tout ça pour renommer récursivement snif)

avec

Code :

find ./ -print | tac | /usr/bin/myrename.pl '($file) = (m|.+/(.+)|); $file = $_ if (!defined($file));($newfile = $file) =~ s/ /_/g; s/(.+)/$newfile/;'

$newfile replace bien toute la chaine précédente mais du coup je perd le répertoire et il me renome tout dans le répertoire courant
(par exemple
toto/tata/titi espace.txt
devient
titi_expace.txt
au lieu de
toto/tata/titi_espace.txt
)

ca m'énerve de pas comprend les regexp !

Merci!

xc0r

Bof?

xc0r

Bon je reformule ma question
comment fait on pour "protéger" une string ?
c'est à dire je veux que
$toto="blablabla[pouet]_(slupr)";
devienne
$toto="blablabla\[pouet\]_$slupr$";
pour pas que mes caracters soient interpretés par mes regexp
Merci!

xc0r

Bon, voilà!
suffisait que j'expose clairement mon problème, n'y pense plus pendant une journée, et j'ai trouvé la solution ! (c'est tout couillon en fait comme je le pensais)
Il suffit faire un "quotemeta" sur la chaine !

Au final ca me donne ça :

Code :

find ./ -print | tac | /usr/bin/myrename.pl '($file) = (m|.+/(.+)|); $file = $_ if (!defined($file));($newfile = $file) =~ s/ /_/g;$file2=quotemeta($file); s/$file2/$1$newfile/;'

Merci à vous

FORUM HardWare.fr

Programmation

Perl

[PERL] regexp avec caractres spéciaux

Sujets relatifs
caractères spéciaux en javascript	Outil pour convertir les caractères spéciaux
Net::SSH::Perl problème d'authentification	Créer des script Perl
Perl et XSD	Demande perl chez hébergeur
Probleme de boucle en perl	[résolu] [Javascript] Alert et caractères spéciaux
[Perl] rrdtool sortie standard	[PERL] PDF::API2 edition de fichier pdf
Plus de sujets relatifs à : [PERL] regexp avec caractres spéciaux

Page générée en 0.035 secondes