如何code
使用URI::URL
Perl 模块获取参数的值?
从这个链接:
http://www.someaddress.com/index.html?test=value&code=INT_12345
可以使用URI::URL
or来完成URI
(我知道第一个已经过时了)。提前致谢。
如何code
使用URI::URL
Perl 模块获取参数的值?
从这个链接:
http://www.someaddress.com/index.html?test=value&code=INT_12345
可以使用URI::URL
or来完成URI
(我知道第一个已经过时了)。提前致谢。
创建一个URI
对象并使用该query_form
方法获取查询的键/值对。如果你知道 code 参数只指定一次,你可以这样做:
my $uri = URI->new("http://www.someaddress.com/index.html?test=value&code=INT_12345");
my %query = $uri->query_form;
print $query{code};
或者,您可以使用 URI::QueryParam 将一些附加方法添加到 URI 对象:
my $uri = URI->new("http://www.someaddress.com/index.html?test=value&code=INT_12345");
print $uri->query_param("code");
use URI;
my $uri = URI->new("http://someaddr.com/index.html?test=FIRST&test=SECOND&code=INT_12345");
my %query = $uri->query_form;
use Data::Dumper;
print Dumper \%query;
我们可以看到:
$VAR1 = {
'test' => 'SECOND',
'code' => 'INT_12345'
};
不幸的是,这个结果是错误的。
有可能的解决方案:
use URI::Escape;
sub parse_query {
my ( $query, $params ) = @_;
$params ||= {};
foreach $var ( split( /&/, $query ) ){
my ( $k, $v ) = split( /=/, $var );
$k = uri_unescape $k;
$v = uri_unescape $v;
if( exists $params->{$k} ) {
if( 'ARRAY' eq ref $params->{$k} ) {
push @{ $params->{$k} }, $v;
} else {
$params->{$k} = [ $params->{$k}, $v ];
}
} else {
$params->{$k} = $v;
}
}
return $params;
}