日記（perlでEXIF漬け）

2009年3月 2日 01:17 | Writer: yoshi | 記事本文 | コメント(0) | トラックバック(0)

今日は3/1である。

休日にしては早めに起床してパン屋へパン買いに行く。新聞読みながら家族と朝食。その後、9時半より生鮮市場へ買い物に出、食料品をどっさり買ってきた。最近はこれは私の仕事。

帰宅後、ヨメに「ちょっとプログラムいじるから」という口実で2Fへ篭る。昼食までの間と、昼食後の数時間、みっちりとperlコードとにらめっこする。やりたいことははっきりしているのだが、perlド素人なんで進みが遅い。あれこれ失敗しながら、調べながら、何とか動くように。

風呂飯。ミッションインポッシブル3見る。その後2FでPCいじくる。perlコードの続きする。疲れたんでもうやめた。

とりあえずEXIF情報をテーブルタグで整形して出力するようにしてみた。これは簡単。同じようにすれば、dl、dt、ddでもいける。これは切り替えができるようにしたほうがいいのか。...寝れなくなるのでこのへんでやめる。

その部分のコード。

sub _hdlr_getexif_assy {
   my ($ctx, $args) = @_;
   my $filepath = $args->{filepath};
   my $exiftag = $args->{exiftag};
   my $option = $args->{option};
   my $out;

   #セット1 一般情報
   my @arraya = (
      'Make',
      'Model',
      'FileName',
      'DateTimeOriginal',
      'ShutterSpeed',
   );
   #セット2 GPS情報
   my @arrayb = (
      'GPSMapDatum',
      'GPSProcessingMethod',
      'GPSLatitude'
   );
   
   #配列へのリファレンス生成、ImageInfoの引数とする
   my $refarray;
   if ('set1' eq $exiftag){
      $refarray = \@arraya;
   }elsif ('set2' eq $exiftag){
      $refarray = \@arrayb;
   }
   
   #データ取得
   my $exif_tool = new Image::ExifTool;
   my $exif_info = $exif_tool->ImageInfo($filepath,$refarray);
   $out="<table border=\"1\">";
   foreach (sort keys %$exif_info){
       $out = $out . "<tr><td>" . $_  ."</td><td>". $$exif_info{$_}."</td></tr>\n";
   }
   $out= $out ."</table>";
   return $out;
}

ページ先頭へ

タグ:Diary

トラックバック(0)

このブログ記事を参照しているブログ一覧: 日記（perlでEXIF漬け）

このブログ記事に対するトラックバックURL:

コメントする

Categories

Entries

Feed

Atom
RSS 2.0

スポンサードリンク

Under the Bridge

日記（perlでEXIF漬け）

トラックバック(0)

コメントする

parts