Perl에서 웹 사이트 URL의 유효성을 검사하려면 어떻게해야합니까?

Question

Perl을 사용하여 웹 사이트 URL의 유효성을 검사하는 정규식이 필요합니다.

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

나는 정규 표현식을 사용하지 마십시오. 나는 URI 객체를 만들고 어떤 일이 일어나는지 보려고합니다. 그것이 작동한다면, 나는 스키마를 얻기 위해 질의 할 수있는 URI 객체를 가진다. (다른 것들은 "스키마가없는"URI로 바뀐다.) 내가 URI의 특정 종류를 찾고 있어요 경우

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 

, 나는 그것이 내가 같은 특정 도메인 이름으로, 무엇을해야 만족 있는지 확인하기 위해 객체를 조회 할 수 있습니다. URL을 사용하여 무언가를하고 있다면 어쨌든 객체를 만들려고합니다.

Answer 4

"웹 사이트 URL"에 대해 이야기하고 있으므로 HTTP 및 HTTPS URL에만 관심이있는 것으로 보입니다.

그 대신 regex를 사용하는 대신 Perl의 Data::Validate::URI 모듈을 사용할 수 있습니다. 어떤 잘 형식의 URI를 검증하기 위해, 마지막으로

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

:에만 HTTP URL을 검증하기 위해,

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) 

을 그리고 :

예를 들어, HTTP 및 HTTPS URL을 확인하는

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

대신 어떤 이유로 든 정규식을 원한다면 다음과 같이 유효성을 검사 할 수 있습니다 HTTP/HTTPS/FTP/SFTP URL :

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