perl - 在 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";

Answer 2

我想非模块解决方案是从现有模块中剪切和粘贴相关代码。

但这将是一个可怕的想法。最好只安装模块。