夜に相方の実家に出かけただけで、あとはウチでゆっくりしていた。夜にperlプログラミングをすすめる。気づけばあっというまに深夜・・日曜日の夜はなぜかいつも遅くなってしまう（汗） 書くことがないのでperlで覚えたことのメモ。 注）うちの環境はWindows XP(SP2)+Activeperl5.8.8 Exiftoolを使って、jpgからの読み込みは成功した。
---
use Image::ExifTool;
$filename = "a.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($filename);
my($key);
for $key (sort keys %$exifInfo){
print("$key : $exifInfo->{$key}\n");
}
exit;
---
実行すると ---
Aperture : 2.8
Audio : No
ColorEffect : Off
ColorSpace : sRGB
ComponentsConfiguration : YCbCr
CompressedBitsPerPixel : 2
Compression : JPEG (old-style)
Contrast : Normal
Contrast (1) : Standard
CreateDate : 2007:03:30 19:26:24
CustomRendered : Normal
DataDump : SCALAR(0x193e67c)
DateTimeOriginal : 2007:03:30 19:26:24
DigitalZoomRatio : 0
Directory : 200703
ExifImageLength : 1536
ExifImageWidth : 2048
--
でろでろーと出てきた☆。 Windows XPで画像を表示する際にコメントを埋め込む場合はXPCommentというタグを使うが、XPCommentで使用されているUnicode。しかしperlのunicodeの仕様と合致していないみたいで、encode('shiftjis,$str)ではうまく表示されない。そこでGuessを利用し、いったんperlのutfに再変換してからあらためてshiftjisに変換したらうまくいった。
---
use Encode;
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
use Image::ExifTool;
$filename = "a.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($filename);
my($key);
for $key (sort keys %$exifInfo){
$a = encode('shiftjis',decode("Guess", $exifInfo->{$key}));
print "$key : $a\n";
print("$key : $exifInfo->{$key}\n");
}
exit;
---
じゃあ、書き込みは？？ということで調べるとSetNewValueというのを使ってから、別名に書き出しがするらしい。a.jpgにXPCommentのexifを付加してa_s.jpgというファイルを生成させる。 ---
use Image::ExifTool;
$comment ="はろー、わーるどＸＰ";
$filename = "a.jpg";
$filename =~m/(.*?)\.jpg$/;
$newfilename = "$1_s.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($filename);
$exifTool->SetNewValue("XPComment", $comment);
$exifTool->WriteInfo($filename, $newfilename) or die $!;
print "> complete $n\n";
exit;
---
XPCommentはunicodeで保持するので、上記のスクリプトは予めutf-8で保存する必要がある。 ちなみにgoogleで公開されているpicasa2でのコメント欄に埋め込みをかけたい場合、Caption-Abstractというタグを使うが、この場合はshiftjis。なので、両方の場合・・は、shiftjisで保存して、XPComment用にencodeでutf-8に変換する。
---
use Image::ExifTool;
use Encode;
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
$sjiscomment ="はろーわーるどＸＰ＋ｐｉｃａｓａ２";
$filename = "a.jpg";
$filename =~m/(.*?)\.jpg$/;
$newfilename = "$1_s.jpg";
$comment = decode("Guess", $sjiscomment);
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($filename);
$exifTool->SetNewValue("XPComment", $comment);
$exifTool->SetNewValue("Caption-Abstract", $sjiscomment);
$exifTool->WriteInfo($filename, $newfilename) or die $!;
print "> complete $n\n";
exit;
---
|
