Hello


J'ai fait un regxp pour vérifier le formatage de lien hypertexte

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub verif_link_format
{
 foreach my $link_format ( @_ )
 {
   if ( $link_format =~ m!^http://[_a-zA-Z0-9-]+\.[_a-zA-Z0-9-]+[.a-zA-Z0-9-]*(/~|/?)[/_.a-zA-Z0-9#?&=+-]*$!i) {
 
     return 1;
 
   }
    else
   {
 
     return 0;
 
   }
 }
}
Celui ci marche mais mon problème ce que si il rencontre une url du type http://wwwwwwwwwwwwwwww.free.fr il renvoie 1 alors que l'url n'est pas bonne.

Auriez vous une solution ???