Help for this page

Select Code to Download

Select or download this

use strict;
use URI::URL;
...
my $url = URI::URL->new($a);
my $path = $url->fragment();
print "$path \n";

Select or download this

my $ENTRY = "http://www.asd.com/123/456/789/";
$ENTRY =~ /http\:\/\/www\.asd\.com\/(\d+)\/(\d+)\/(\d+)\\"/;
...
        print "1 $u_com \n";
        print "2 $name \n";
        print "3 $entry \n";