Discussion :

[Nickname]

Bonsoir à tous,
Toujours des questions a poser mais ca nous aide a progresser loool
Alors enfait j'ai un petit problème pour recupérer des liens d'une page web.
J'ai fais mon expression régulière qui ne dois pas etre bonne.

Code :

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

@ur = qw (net com fr be de);

et

Code :

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

if ($ligne =~ /http:\/\/(.+)\.@ur/gi) {

Seulement la je n'ai plus rien sachant que si je remplace le @ur par com ou ou net etc... ca marche.
Par contre autre probleme il me prend aussi tout ce qui viens apres l'url
J'aimerai juste recup dans $1 l'url et non toute la ligne qui viens apres cette url.

Si quelqu'un pouvais m'aider ca serai pas de refus.Je vous remercie infiniment et longue vie au forum de developpez.com

[vic]

Salut,

Dans une expression régulière une alternative s'exprime par "(abc|def|ghi)", et non par "abcdefghi".

Ensuite dans ton expression régulière tu as ".+" qui va par défaut récupérer la plus longue chaine possible. Donc $1 va contenir le texte le plus grand possible qui précède un ".fr" ou autre. Il faut donc plutot utiliser ".+?", qui va matcher la chaine la plus petite possible.

Dans tous les cas ca ne marchera pas pour une url du type "http://www.france.fr", où tu ne récupèrerais que le "www". Il faut que tu trouves un meilleur délimiteur.

Remarque en passant : tu n'est pas obligé d'utiliser // pour marquer ta regexp, tu peux utiliser un autre caractère ce qui est plus pratique pour les url. Exemple :

Code :

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

!http://(.+?\.fr)!

[djibril]

J'ai fais mon expression régulière qui ne dois pas etre bonne.

Code :

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

@ur = qw (net com fr be de);

et

Code :

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

if ($ligne =~ /http:\/\/(.+)\.@ur/gi) {

En mettant dans ta regex @ur, ça marchera pas.
voici un script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
use strict;
use Carp;
my $ligne = "http://<a href="http://www.developpez.net/forums/posting_secure.php?mode=quote&p=2140136&sid=8e526876638b42e7a3af19bb6ea2567c";" target="_blank">http://www.developpez.net/forums/pos...19bb6ea2567c";</a>
 
my @ur = qw (net fr be de);
my $mes_extensions = join ('|',@ur);
if ($ligne =~ /http:\/\/(.+\.($mes_extensions))/gi) {
	print $1;
}

Le resultat sera

Code :

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

<a href="http://www.developpez.net" target="_blank">www.developpez.net</a>

voilà, si tu veux des explications, n'hésite pas !!!

[Nickname]

Merci bien de vos reponses, ca marche nikel franchement vous assurez.Chapeau a vic et djibril yeahhh !!!
8)

Rah le perl c'est vraiment trop bon !