[B! perl][Exif] rin51のブックマーク

rin51 id:rin51

perlとExifに関するrin51のブックマーク (4)

ExIF 取得スクリプト | Cubeの日記 | スラド
とりあえずやっつけ仕事． [環境設定] # perl -MCPAN -e shell (省略) CPAN>install Image::ExifTool (省略) CPAN>bye [作成スクリプト] #!/usr/bin/perl use Image::ExifTool; @Targets = @ARGV; $exifTool = new Image::ExifTool; foreach( @Targets ) { $f = $_; if ( -e $f ) { $info = $exifTool->ImageInfo( $f ); print "[ExIF of $f]\n": foreach( keys( %$info ) ) { $k = $_; $v = $exifTool->GetValue( $k ); printf( "%s -> %s\n", $k, $v ); } el
rin51 2009/07/17
Perl

Exif
リンク
Image::EXIF
NAME Image::EXIF - Perl extension for exif library SYNOPSIS use Image::EXIF; use Data::Dumper; my $exif = Image::EXIF->new($file_name); # or: my $exif = Image::EXIF->new; $exif->file_name($file_name); my $image_info = $exif->get_image_info(); # hash reference my $camera_info = $exif->get_camera_info(); # hash reference my $other_info = $exif->get_other_info(); # hash reference my $point_shoot_info
rin51 2009/05/29
Perl

Exif
リンク
Image::ExifTool - jiroの日記
旅行でとった写真の日付が最初の方１２時間ずれていたから一括して変更したかったんだけど、perlの勉強もかねて作ってみた。んー、どこをみてperlを勉強したらよいのかよくわからない。rubyだったら公式ページにいろいろ書いてあるしpythonだったらすばらしいチュートリアルがあるのに、、、どこにそういった類いがあるのかわからんかった。で、作ったのがこれ。EXIFに対して全然理解がないからとりあえず、Dateと名前のつくタグについてはすべて計算の対象にしてみた。一応これで、シェルスクリプトを書けば一度にまとめていろいろ操作できる。まぁとりあえず晒してみる。 use strict; use Image::ExifTool 'ImageInfo'; use DateTime; use Data::Dumper; if ($#ARGV != 1) { &usage(); exit(1); } el
rin51 2009/05/29
Perl

Exif
リンク
Perlで写真のexif情報取得 - goryugo
Image::ExifToolを使う http://search.cpan.org/~exiftool/Image-ExifTool/lib/Image/ExifTool.pod exif情報を全部表示させてみる #!/usr/bin/perl use strict; use warnings; use Image::ExifTool; my $file = "./image.jpg"; my $exifTool = new Image::ExifTool; my $info = $exifTool->ImageInfo($file); foreach (sort keys %$info) { print "$_ => $$info{$_}\n"; } この辺りを使いそう my $exifTool = new Image::ExifTool; #width height取得 $info =
rin51 2009/05/29
Perl

Exif
リンク
1