Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here JSONã¢ã¸ã¥ã¼ã«ã使ç¨ããã¨ãJSONãã¼ã¿ã解æãããã¨ãã§ãã¾ããJSONã¯ãã¼ã¿ãè¨è¿°ããããã®è¨èªã§ãé åãããã·ã¥ãªã©ã®ãã¼ã¿æ§é ã表ç¾ãããã¨ãã§ãã¾ããJSONã¯åãªãæååã§ãã®ã§å¯æ¬æ§ãããã¾ããä»ã®ããã°ã©ã è¨èªã¨ãã¼ã¿ãããåãããå ´åã«ããå©ç¨ããã¾ãã # ã¢ã¸ã¥ã¼ã«ã®èªã¿è¾¼ã¿ã¨é¢æ°ã®ã¤ã³ãã¼ã use JSON qw/encode_json decode_json/; JSONãPerlã®ãã¼ã¿æ§é ã«å¤æããã«ã¯decode_jsoné¢æ°ã使ç¨ãã¾ãã # JSONãPerlã®ãã¼ã¿æ§é ã«å¤æãã my $json_in = '[{"name" : "Ken", "age" : 19}, {"name" : "Ken", "age" : 25}]'; my $data = decode_json($json_in); ã
{{#tags}}- {{label}}
{{/tags}}