Hello
J'ai fait un regxp pour vérifier le formatage de lien hypertexte
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.
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; } } }
Auriez vous une solution ???
Partager