Discussion :

[vodevil]

Bonjour j'ai un petit problème de regxp (on s'entend pas lol), j'ai une liste d'url dont je ne doit garder que le domaine pour cela un petit regxp me suffirais mais comme on est faché je n'y arrive pas j'ai donc repris un regxp qui trainait sur le forum et qui fait presque ce que je veut le voila :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use strict;
 
my $url = "http://www.free.fr/8.html";
 
   $url =~ m{^http://[^/]+\.([^/\.]+)/?};
 
   print "$1\n";

perl affiche : fr

Alors que moi c le domaine que je veut récupérer http://www.free.fr

merci de votre aide !

[ravachol]

Salut,
En fait tu récupères dans $1 ce que tu as mis en mémoire entre les deux parenthèses de ton expression régulière.
Donc en changeant les parenthèses de place ça donne ça :

Code :

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

1
2
$url =~ m{^(http://[^/]+\.[^/\.]+)/?};
	print "$1\n";

Voilà une autre solution au cas où :

Code :

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

1
2
3
if($url =~ /^http:\/\/[^\/]*/) {
	print $&;
}

En espérant que ça t'avanceras un peu