メイン

perl :: Logbook :: Pocketstudio.jp

perl アーカイブ

perl 】 2006年11月06日 23:43

 個人的メモ。
 サーバの変更にともないディストリビューションも変更。
 一緒に Image::Magick(Perl::Magick)の仕様も結構変更になっているようだ。
 画像のサムネイル精製時にちょっと困ったことが。
 これまでは

$image->Sharpen(factor=>'90');

 のように指定していたのに、version 6.x 以降では、画像を鮮明(シャープ)にするには
$image->Sharpen(True);

 このように True か False で指定しなくてはいけないように変わっていたようだった。
 しばらくネットから離れていたので最新技術からは遠ざかっていたとはいえ、これはうかつ。

 やっぱり、マニュアル読むのって大切ですね。。。

- ImageMagick PerlMagick, Perl API for ImageMagick

perl 】 2009年07月01日 01:21

◆JPEG画像に含まれるGPS情報を perl で呼み出す

Image::ExifTool (http://search.cpan.org/~exiftool/Image-ExifTool-7.67/ ) を使えば、Perl では手軽に JPEG 画像ファイルに含まれている各種のタグを読み出すことが出来る。

以下、GPS 情報を取得するまでの手順。

1. CPAN を使ってサクッとインストール

# perl -MCPAN -e shell
> install Image::ExifTool

 特にエラーが出なければコレで完了。

2. exiftool の動作確認

 インストールが正常であれば /usr/bin/exiftool (perlスクリプト) を使って、画像のタグを一覧取得出来る。

3. perl で GPS 情報を取得する

 GPS 情報を取得するには、GPSPosition タグの値が分かれば良い。

exif.pl
--------------------------------------------------------------------
#!/usr/bin/perl

use Image::ExifTool;

$exifTool = new Image::ExifTool;
$exifTool->ExtractInfo($ARGV[0]);
$GPS = $exifTool->GetValue(GPSPosition);
print "GPSPosition=$GPS\n";
--------------------------------------------------------------------

実行例
--------------------------------------------------------------------
$ perl ./exif.pl /home/zem/photo.jpg
GPSPosition=35 deg 40' 31.20" N, 139 deg 47' 24.00" E
--------------------------------------------------------------------

このようにサクッと取得出来る。
あとは、Google Maps などの API に流し込めば、
iPhone で GPS 情報付きの写真を撮影→メールで送信→自動的に Google Maps で位置表示、という一連の流れを PC を介することなく自動化出来る。

ちなみに、ほかにどんなタグが画像に埋め込まれているかは、

@tagList = $exifTool->GetFoundTags('Target');
foreach $tag (@tagList) {
print $tag,"\n";
}

のように書き加えることで、
タグ名と値が一覧表示される。


リソース
ImageExifTool - Read and write meta information - search.cpan.org SYNOPSIS のソース(一次情報)より。

About perl

ブログ「Pocketstudio'z log」のカテゴリ「perl」に投稿されたすべてのエントリーのアーカイブのページです。過去のものから新しいものへ順番に並んでいます。

他にも多くのエントリーがあります。メインページアーカイブページも見てください。

カテゴリー