#!/bin/env perl use strict; use warnings; use URI; for my $search ('http://www.foo.com', 'https://www.foo.com', 'www.foo. +com', 'WWW.FOO.COM', 'ftp://www.foo.com') { my $url = $search; # we can't modify $search directly $url = 'http://' . $url unless $url =~ m!^\w+://!; # If there isn't +a schema, add http:// my $uri = URI->new($url)->canonical->as_string; print "$search => $uri\n"; }
In reply to Re: Detecting URLs with URI
by Mr. Muskrat
in thread Detecting URLs with URI
by htmanning
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |