将字符串拆分为perl中的名称,值对

Question

假设我有json格式的字符串结果,如下所示.

{ "errorcode": 0, "message": "Done", "login": [ { "session_timeout": "1800", "token": "1370907977", "sessionid": "##F7A7E49F7FCFF35D3F821201CBF2F7CB5937E4AC99BF2AF74B508A1C8B3F", "username": "" } ] }

如何从这个获取哈希表,

hash[errorcode] = 0;  
hash[message] = Done;

PS:不使用任何其他模块并使用简单的字符串函数.

Answer 1

使用JSON模块将json结构解析为perl

use strict;
use warnings;
use JSON;

my $json_text = q({ "errorcode": 0, "message": "Done", "login": [ { "session_timeout": "1800", "token": "1370907977", "sessionid": "##F7A7E49F7FCFF35D3F821201CBF2F7CB5937E4AC99BF2AF74B508A1C8B3F", "username": "" } ] });
my $href = decode_json($json_text);

print $href->{errorcode}, $href->{message}, "\n";