配列をJSONオブジェクトに変換する記述。 #\を配列名の先頭につける。 print JSON::objToJson( \@array ) ; 配列をメンバにもつ構造体の記述。 my @json2 ; foreach( @files ) { ... push( @json2 , obj ) ; } ; #[]でくくる。 my $ret = { result => 1 , ar…