如何分析Perl中的URL？

Question

我想http://www.foo.com/bar.html从http://www.foo.com/bar.html?key=value....

正则表达式应该做的工作.有一些模块可以做到这一点吗？我检查了URI,似乎没有这样的子.

Answer 1

你可以这样使用URI:

sub remove_query_string($)
{
    my $uri = URI->new(shift);
    $uri->query(undef);
    return $uri->as_string;
}

但是,你绝对可以使用正则表达式:

sub remove_query_string($)
{
    my $ret = shift;
    $ret =~ s/\?.*//;
    return $ret;
}