ディレクトリ内のjpegファイル一覧を抽出してJavascriptのarrayに変換するスクリプト

jpegs2json.pl

use strict;
use warnings;
use List::Util;

my @photos =  List::Util::shuffle glob('*.jpg');

print "var photos = [\n";
for my $photo (@photos) {
    print "'$photo',\n";
}

print "];\n";