EXIF抽出スクリプトのサンプル

JPEGファイルからExifを取り出すPerlスクリプトです。ソースを短くするため、シンプルな機能に絞っており、あまり最適化もしていません。ひな形としてお使いください。 最初の%target_tagで定義したExifタグのみを取り出すので、必要なデータだけを抽出して利用できます。実際の出力はサブルーチンread_dir_entryで行っているので、ここのprint関数の部分を書き換えると、XHTMLのテーブルなど、好みのフォーマットで出力できます。 コメントフィールドは、とりあえず内容にかかわらずそのまま出力しています。必要に応じて、RDFであることをチェックしたり、XMLを適当な形に変換するなど書き換えてください。 #!/usr/local/bin/perl #グローバルで使う変数 ($buf, $long_tmpl, $short_tmpl) = (); #抽出するExifタグを定義す