Discussion :

[franpom]

Bonjour,

J'ai un problème pour retourner une liste d'url d'un tableau.
J'ai donc un tableau comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
http://www.toto.fr/dossier[1|2]/index.html
http://www.titi.fr/dossier/index.html
http://www.toto.fr/dossier1/index.html
http://www.toto.fr/dossier2/index.html
http://www.titi.fr/

Quand je fait un grep sur "http://www.toto.fr/dossier1/index.html"

J'aimerai que le grep me retourne : http://www.toto.fr/dossier[1|2]/index.html et http://www.toto.fr/dossier1/index.htm

Avec mon code il ne me retourne que http://www.toto.fr/dossier1/index.html

Voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use Data::Dumper;
 
my @url = qw("http://www.toto.fr/dossier[1|2]/index.html" "http://www.titi.fr/dossier/index.html" "http://www.toto.fr/dossier3/index.html" "http://www.toto.fr/dossier4/index.html" "http://www.titi.fr/");
 
my $addr = "http://www.toto.fr/dossier1/";
 
my @result = grep { /$addr/ } @url;
 
print Dumper @result;

Merci d'avance pour votre aide
Franpom

[Lolo78]

Euh, ça me paraît parfaitement normal que si ta regex contient "http://www.toto.fr/dossier1/", elle ne puisse reconnaître la chaîne "http://www.toto.fr/dossier[1|2]/index.html": la regex échoue dès qu'elle voir le "[" dans la chaîne puisque tu spécifies qu'il doit y avoir un 1 à cet emplacement.

[franpom]

Bonsoir,

En regex http://www.toto.fr/dossier[1|2]/index.html correspond à soit http://www.toto.fr/dossier1/index.html soit http://www.toto.fr/dossier2/index.html
le [1|2] signifie caractère 1 ou 2.

Franpom

[Lolo78]

D'accord, c'est un peu ce que je soupçonnais, mais je n'étais pas du tout sûr, je n'arrivais pas vraiment à comprendre ce que tu cherchais à faire. En fait, il semble y avoir une grosse confusion de ta part, le problème est simplement que tu intervertis la chaîne de caractères à reconnaître et la regex censée la reconnaître.

Considère l'exécution du script à la ligne de commande suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$ perl -e '
my @url = qw(http://www.titi.fr/dossier/index.html http://www.toto.fr/dossier2/index.html http://www.toto.fr/dossier1/index.html http://www.titi.fr/);
my $regex = qr{http://www.toto.fr/dossier[12]};
print join "\n", grep { /$regex/ } @url
'
http://www.toto.fr/dossier2/index.html
http://www.toto.fr/dossier1/index.html

En mettant la classe de caractère "[12]" (pas besoin dans une classe de caractère du "|" qui sert à autre chose) dans la regex et non dans la chaîne de caractères à reconnaître, la regex reconnaît bien les deux noms de fichiers recherchés.