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 。