camel

最近コードが少ないとの声にお答えするべく、ちょっと小ネタを。

メイドさんが縮小表示で邪神に：小鳥ピヨピヨ(a cheeping little bird)
すると、メイドさんが……
exif-finder-info asanama-exthm

以下のスクリプトを使うと、ラヴクラフトでなくてもクトゥルフの呪いをかけることができます。


見てのように、Mac OS X でもFinderのプレビューがきちんと呪われていることが確認できます。

使い方は至って簡単で、コマンドラインにて

% perl exifthumb.pl image.jpg thumb.jpg

とすると、image+exthm.jpgという呪われたファイルが生成されます。

「404 Blog Not Found:JPEGにファイルを隠させない方法」でも紹介した、Image::MetaData::JPEGを利用。

exifthumb.pl 
#!/usr/local/bin/perl
# $Id: exifthumb.pl,v 0.1 2007/09/08 05:44:13 dankogai Exp dankogai $
use strict;
use warnings;
use Image::MetaData::JPEG;
my $image = Image::MetaData::JPEG->new($ARGV[0])
    or die Image::MetaData::JPEG::Error();
my $thumb = Image::MetaData::JPEG->new($ARGV[1])
    or die Image::MetaData::JPEG::Error();
$image->set_Exif_data($thumb => 'THUMBNAIL');
my $result = $ARGV[2];
unless ($result){
    $result = $ARGV[0]; 
    $result =~ s/\.(\w+)\z/+exthm.$1/;
}
warn "$ARGV[0] => $result";
$image->save($result);
__END__

Enjoy!

Dan the EXIF (Ab)?user