EXIF抽出スクリプトのサンプル
JPEGファイルからExifを取り出すPerlスクリプトです。ソースを短くするため、シンプルな機能に絞っており、あまり最適化もしていません。ひな形としてお使いください。 最初の%target_tagで定義したExifタグのみを取り出すので、必要なデータだけを抽出して利用できます。実際の出力はサブルーチンread_dir_entryで行っているので、ここのprint関数の部分を書き換えると、XHTMLのテーブルなど、好みのフォーマットで出力できます。 コメントフィールドは、とりあえず内容にかかわらずそのまま出力しています。必要に応じて、RDFであることをチェックしたり、XMLを適当な形に変換するなど書き換えてください。 #!/usr/local/bin/perl #グローバルで使う変数 ($buf, $long_tmpl, $short_tmpl) = (); #抽出するExifタグを定義す
Exif to RDF - a metadata extractor
URI of an Exif image Use XSLT to format output or, try some samples from Wikimedia commons: Common tiger male, Kumarakom, Kerala, India (or w/ XSLT): camera Canon EOS 80D (Wikimedia page) F1 Monaco Grand Prix, Monte Carlo, Monaco (or w/ XSLT): camera Canon EOS-1D X (Wikimedia page) Mt. Fuji from Fuji City (or w/ XSLT): camera Canon PowerShotA50 (Wikimedia page) Michelangelos David (or w/ XSLT): ca
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
