タグ

Perlとexifに関するmakotoworldのブックマーク (2)

  • YappoLogs: iPhotoは取り込んだ写真にExif追加します

    iPhotoは取り込んだ写真にExif追加します eyefiで上げまくる生活をした後にiPhotoに残ってる古い写真も上げようと思ったらeyefiで上げ済みの写真も上がっててバビった今日この頃皆様いかがお過ごしでしょうか。 iPhotoに取り込まれた写真はExif情報を追加するといったことが一般的に知られていますが、実際にどんなデータが追加されてるかを見てみました。 材料:iPhoto通してない写真 1枚 iPhoto通した同じ写真 1枚 下記のスクリプト use strict; use warnings; use Image::ExifTool ':Public'; my $eyefi = ImageInfo(shift); my $iphoto = ImageInfo(shift); while (my($k, $v) = each %{ $eyefi }) { my $iphoto_

  • YappoLogs: Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ

    Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ 全国的にみんな真面目だな〜。勉強会の目的なんてないよ。楽しいからやっている。それで何が悪いのかな?の実況中継、その勉強会への 参加そのものについてちょっと考えなおした方がいいかもしれない。 Imager::ExifOrientationをCPANにうpりました。 Exif の Orientation というパラメータを元にして回転済みのImagerオブジェクトを返します。 一緒に Imager::Filter::ExifOrientation もバンドルしてるので、filterとしても利用出来ます。 Orientationは何かと言うと、カメラに縦方向センサーが入ってる機種で、画像に対してカメラの上方向はどちらかというような情報が入っている所です。 わかり易い説明は500で見れないのでgoogle

  • 1