en me basant sur l'exemple trouvé ici
http://perl.enstimac.fr/DocFr/perlfaq6.html#comment%20prot%E9ger%20une%20variable%20pour%20l'utiliser%20dans%20une%20expression%20rationnelle,
j'ai fait ce petit bout de code :
my $regex=".*\Disk Groups\(.*?)\(.*?)<.*";
while (<SOURCEFILE>) {
if (/\Q$regex/) {
print "$1, $2\n";
}
}
les lignes à reconnaitre sont lues à partir d'un fichier xml et sont de
cette forme:
<objectname>\Disk Groups\FATA Disk Group\Disk 009</objectname>
le '\Q' devrait permettre de ne pas interpréter les caractères spéciaux
dans la chaine.
mais j'ai droit a cette ereur :
Unrecognized escape \D passed through at C:\Perl_Scripts\san\eva.pl line
17.
(la ligne 17 est my $regex=...)
outre le fait que ma regex n'est peut être pas la bonne, il y a un truc
qui m'échappe :((
des pistes pour m'aider ?
--
klp
"bug : probleme d'interface entre la chaise et le clavier"