10/10/01 01:26:09
PNGの途中切れ判定関数作った
sub is_png
{
my $data = shift or die $!;
my $sig = substr( $$data, 0, 8 );
my $iend = substr( $$data, -8, 8 );
return
$sig ne "\x89\x50\x4E\x47\x0D\x0A\x1A\x0A" ? 0
: $iend ne "\x49\x45\x4E\x44\xAE\x42\x60\x82" ? 0
: 1 ;
}