这个问题与
What’s the simplest way to make a HTTP GET request in Perl?有些有关.
在通过LWP :: Simple发出请求之前我有一个需要序列化/转义的查询字符串组件的哈希.什么是编码查询字符串的最佳方法？它应该考虑到需要在有效URI中转义的空格和所有字符.我认为这可能是一个现有的包,但我不知道如何去找到它.
use LWP::Simple; my $base_uri = 'http://example.com/rest_api/'; my %query_hash = (spam => 'eggs',foo => 'bar baz'); my $query_string = urlencode(query_hash); # Part in question. my $query_uri = "$base_uri?$query_string"; # http://example.com/rest_api/?spam=eggs&foo=bar+baz $contents = get($query_uri);
解决方法
URI::Escape做你想要的
use URI::Escape;
sub escape_hash {
my %hash = @_;
my @pairs;
for my $key (keys %hash) {
push @pairs,join "=",map { uri_escape($_) } $key,$hash{$key};
}
return join "&",@pairs;
}