Question

I want http://www.foo.com/bar.html from http://www.foo.com/bar.html?key=value....

A regexp should do the work. Is there some module to do this? I checked URI, it seems does not have such sub.

Answer 1

You can also try URI::URL.

use strict;
use warnings;

use URI::URL;

my $path = 'http://www.foo.com/bar.html?key=value';

my $url = URI::URL->new($path);

my $new_url = URI::URL->new();

$new_url->scheme( $url->scheme );
$new_url->host( $url->host );
$new_url->path( $url->path );

print $new_url->as_string();