Perl/EXIFによる写真整理

目次 †

内容 †

概要 †

• Windows8ではデジカメから写真を取り込んだ時に日別フォルダを作成することができない
• そのため、写真からEXIFに登録された撮影日を取得してフォルダを作成して整理するPerlスクリプトを作成した

参考 †

• Image::ExifTool - search.cpan.org
• Perlで写真のexif情報取得 - goryugo
• 写真の撮影日から、自動フォルダ作成してＰＣへコピーするPerlスクリプト: 国際派ＳＥ ～ 自己啓発の覚書き

事前準備 †

CPANモジュールImage::ExifToolのインストール †

• Windows環境の場合はPerl/WindowsでCPANを参考

スクリプトの内容 †

• Windows環境ではShiftJISで動かした

  ###=============================================================================
  ### 概要
  ###=============================================================================
  
  # ピクチャディレクトリ内の写真を日付ディレクトリに整理する
  # Image::ExifToolが必要
  
  ###=============================================================================
  ### 設定
  ###=============================================================================
  
  ### 基本モジュール
  use strict;
  use warnings;
  use Data::Dumper;
  use File::Copy;
  use File::Basename;
  
  ### 拡張モジュール
  use Image::ExifTool;
  
  ### 設定項目
  my $picture_dir = 'C:\Users\ユーザー名\Pictures';
  
  ###=============================================================================
  ### 設定
  ###=============================================================================
  
  ### Image::ExifToolのインスタンス
  my $exif_tool = new Image::ExifTool;
  
  ### ディレクトリ内のJPGファイルに対して処理を実行
  foreach my $picture_file ( glob( $picture_dir . '\*.JPG' ) ){
  	chomp $picture_file;
  	next unless $picture_file;
  	my $exif_info = $exif_tool->ImageInfo( $picture_file ) || next;
  	### 日付を取得
  	my $datetime = $exif_info->{"DateTimeOriginal"} || next;
  	next unless $datetime;
  	my $date = join( "-", split( ":", @{[ split( " ", $datetime ) ]}[0] ) );
  	next unless $date =~ m/^\d{4}-\d{2}-\d{2}$/o;
  	### ディレクトリがなければ作成
  	my $date_dir =  $picture_dir . '\\' . $date;
  	if( ! -d $date_dir ){
  		mkdir $date_dir;
  	}
  	### ファイルを移動
  	my $path_after = $date_dir . '\\' . fileparse( $picture_file );
  	if( ! -e $path_after ){
  		rename $picture_file, $path_after;
  	}
  }