って書きましたが。
JSONへのコンバートプログラムをごりごり書いたりはしません。
モジュールがあるなら使えば良いその名も「JSON」。。。
そのままですねf^^;
use strict; use utf8; use JSON; my @fl = glob "*\.flv"; my @dt = (); my $test; my $n = 0; foreach(@fl){ $dt[@dt] = { 'file_name' => $_ }; } print qq(content-type:application/json\n\n); print to_json(\@dt); exit 0;