Perlでアクセスカウンターを作る（5）

　今回は、「先頭の８バイトを読んでPNGファイルであるかどうかを判定する」に挑戦してみたいと思います。

　とりあえず、

my $check8;
open(IN,"< test.png") or die "ファイルオープンエラー";
binmode(IN);
read(IN,$check8,8);
close(IN);
if ($check8 eq "\x89PNG\r\n\x1a\n") {
print "png";
} else {
print "not png";
}

とすれば良いのではないでしょうか。

　まあ、解説もいらないほどシンプルなものですね。あとは、ImageMagickを使って連結すれば良いのでしょうかね。

　ということで、次回はいよいよ画像の連結に挑戦してみたいと思います。