Perl-如何将哈希变成查询字符串？

Question

如何将哈希值转换为查询字符串？我想找到一个不涉及使用CGI模块的解决方案。这是我想做的事的一个例子，但我不知道最好和最优雅的方法是什么，因为我对Perl还是比较陌生。

杂凑：

my $data = {
         'key1' => 'value1',
         'key2' => 'value2',
         'key3' => 'value3',
         'key4' => 'value4'
};

要查询的字符串：

key1=value1&key2=value2&key3=value3&key4=value4

Answer 1

use URI qw( );
my $url = URI->new('', 'http');
$url->query_form(%$data);
my $query = $url->query;

如果您实际上是在尝试建立POST请求，请查看HTTP :: Request :: Common的POST。