- 468 名前：名無しさん＠お腹いっぱい。 mailto:sage [2010/10/05(火) 16:29:30 ]
- gifイメージ途中切れ判定関数
完全なイメージなら常に1を示すが、不完全な場合は概ね0を示すが偶然1を示すこともある。
参考程度に。
sub is_gif
{
my $data = shift or die $!;
my $sig = substr( $$data, 0, 3 );
my $bt = substr( $$data, -2, 2 );
return
$sig ne "\x47\x49\x46" ? 0
: $bt ne "\x00\x3B" ? 0
: 1 ;
}
