Comment puis-je valider une URL de site Web en Perl?

Question

J'ai besoin d'une expression régulière pour valider l'URL du site en utilisant Perl.

Answer 1

Regexp::Common::URI::http

Answer 2

use Regexp::Common qw /URI/; 
    while (<>) { 
     /($RE{URI}{HTTP})/  and print "$1 is an HTTP URI.\n"; 
    } 

Answer 3

Je n'utilise des expressions régulières. J'essaie de créer un objet URI et de voir ce qui se passe. Si cela fonctionne, j'ai un objet URI que je peux interroger pour obtenir le schéma (les autres choses sont transformées en URI "sans schéma").

use URI; 

while(<DATA>) 
    { 
    chomp; 
    my $uri = URI->new($_, 'http'); 
    if($uri->scheme) { print "$uri is a URL\n"; } 
    else    { print "$uri is not a URL\n"; } 
    } 

__END__ 
foo.html 
http://www.example.com/index.html 
abc 
www.example.com 

Si je suis à la recherche d'une sorte spécifique d'URI, je peux interroger l'objet pour voir si elle satisfait tout ce que je dois, comme un nom de domaine particulier. Si je fais quelque chose avec des URLs, je vais probablement faire un objet de toute façon, donc je ferais mieux de commencer par le faire.

Answer 4

Puisque vous parlez d '"URL de site Web", je suppose que vous êtes intéressé par les URL HTTP et HTTPS seulement. Pour cela, au lieu d'utiliser regex, vous pouvez utiliser le module Perl Data::Validate::URI de Perl. Pour cela, vous pouvez utiliser le module .

Par exemple, pour valider les URL HTTP et HTTPS:

use Data::Validate::URI; 
my $url = "http://google.com"; 
my $uriValidator = new Data::Validate::URI(); 

print "Valid web URL!" if $uriValidator->is_web_uri($url) 

Et, pour valider l'URL HTTP uniquement:

print "Valid HTTP URL!" if $uriValidator->is_http_uri($url) 

Enfin, pour valider une URI bien formaté:

print "Valid URI!" if $uriValidator->is_uri($url) 

Si à la place, pour une raison quelconque, vous voulez réellement une regex, alors vous pouvez utiliser quelque chose comme ce qui suit pour valider URL HTTP/HTTPS/FTP/SFTP:

print "Valid URL!\n" if $url =~ /^(?:(?:https?|s?ftp))/i;