perl - JPEG判定をPure Perlで : 404 Blog Not Found

2009年08月18日13:45 カテゴリLightweight Languages perl - JPEG判定をPure Perlで やってみてもいいと思ったので。 JPEG かどうかを判断する C のコード - TokuLog 改めB日記 こんな感じで。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://ec2.images-amazon.com/images/P/4757215339.01.MZZZZZZZ.jpg'; my $content = get($url) or die "Couldn't get $url"; print "$url : ", isjpeg(\$content); if (0){ # test my $fn = shift; my $content; p

[kkobayashi]

perlでバイナリーをいじるのは・・・という気もするけど、このくらいならいいかも

[tokuhirom]

Image::JpegCheck というモジュールが CPAN にあがってます ＞＜

[dankogai]

Image::JpegCheck とロジックも同じですた＞＜ id:tokuhirom I::JはなぜかXSだと勘違い