復刻版

comp

Perlのお時間です。
へぇ。

open JPEG, "< filename.jpg";
binmode JPEG; #for Win32
$jpeg_bin = join '', <JPEG>;
($width, $height) = jpeg_report(\$jpeg_bin);
close JPEG;

こんなんして、

[こんなん:http://www.egroups.co.jp/message/perl-lesson/1449]
すると簡単にフォトアルバムとか作れますね。
[こっち:http://perlmonks.thepen.com/240866.html]の方がスッキリ書けてるかな。