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。