在Perl脚本中混合了POST值

时间:2013-06-01 21:59:56

标签: forms perl post cgi

我需要将POST值发送到服务器url,我正在使用此代码:

$ogone_ua = new LWP::UserAgent;
$ogone_response = $ogone_ua->post("http://server.url/", {
'ACCEPTURL' => 'http://server.url2',
'AMOUNT' => '1000',
'CURRENCY' => 'USD',
'LANGUAGE' => 'en_US',
'ORDERID' => '20130105220939',
'PSPID' => 'vukasin',
'SHASIGN' => '6AEE128943C7C896A6449FF7C2CE702222995B7F'
} );

但服务器收到:

POST / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: athlon.herrpan.com:2389
User-Agent: SSL-AirKiosk/1.0
Content-Length: 206
Content-Type: application/x-www-form-urlencoded

LANGUAGE=en_US&ACCEPTURL=http%3A%2F%2Fserver.url2&SHASIGN=6AEE128943C7C896A6449FF7C2CE702222995B7F&CURRENCY=USD&AMOUNT=1000&PSPID=vukasin&ORDERID=20130105220939

为什么不按顺序?银行API需要对POST值进行排序,就像在代码中一样。

1 个答案:

答案 0 :(得分:4)

哈希没有固有的顺序,所以在->post被调用之前,顺序就会丢失。但是,POST->post传递其args)也接受数组引用。

->post("http://server.url/", [
   ACCEPTURL => 'http://server.url2',
   AMOUNT    => '1000',
   CURRENCY  => 'USD',
   LANGUAGE  => 'en_US',
   ORDERID   => '20130105220939',
   PSPID     => 'vukasin',
   SHASIGN   => '6AEE128943C7C896A6449FF7C2CE702222995B7F',
]);
相关问题