……
というふうにまじめに仕事すればいいのに，
また横道にそれてしまった．
Perl とかで PNG 画像ファイルの「サイズ」
(幅と高さのピクセル数)
を CPAN もぢゅーる使わずに取得するにはどうしたらよいか?
とほほの WWW 入門
の
ラウンジ
のやりとり
(2003 年 3 月 --- ここには GIF ファイルサイズ取得のやりかたが
具体的に示されている)
参考にこういう関数作ってみた．
これでうまく動作する．
sub getPNGsize
{
# GIF ファイルの場合 (big endian, unpack "VV")
# OFFSET 6 から 2 btyes に幅
# OFFSET 8 から 2 bytes に高さ
# PNG の場合 (little endian, unpack "NN")
# OFFSET 16 から 4Bytes で幅
# OFFSET 20 から 4Bytes で高さ
my ($file) = @_;
my $size;
open PNG, $file or die "ERROR: Can't open $file";
seek PNG, 16, 0;
read PNG, $size, 8;
close PNG;
my ($width, $height) = unpack("NN", $size);
return ($width, $height);
}
R
だったら readBin()
関数とか使うのかな?
