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。