ちょっとはまったJSONオブジェクトに変換するPerl文法のメモ。

配列をJSONオブジェクトに変換する記述。

#\を配列名の先頭につける。
print JSON::objToJson( \@array ) ;

配列をメンバにもつ構造体の記述。

my @json2 ;
foreach( @files )
{
	...
	push( @json2 , obj ) ;
} ;

#[]でくくる。
my $ret =
{
	result => 1 ,
	array => [ @json2 ] 
} ;

print JSON::objToJson( $ret ) ;

ｲﾏｲﾁ理解しないでPerl書いてるせいで、ちょくちょくはまった･･･