0

以下のように、json形式の文字列結果があるとします。 

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

このようにハッシュテーブルを取得するにはどうすればよいですか 

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

PS:追加のモジュールを使用せず、単純な文字列関数を使用します。

4

2 に答える 2

10

json 構造を perl に解析するために JSON モジュールを使用する

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";
于 2013-06-11T07:06:37.477 に答える
2

非モジュールの解決策は、既存のモジュールから関連するコードをカット アンド ペーストすることだと思います。

しかし、それはひどい考えでしょう。モジュールをインストールするだけの方がはるかに優れています。

于 2013-06-11T11:05:19.400 に答える