File Coverage

blib/lib/Image/Nikon/Index.pm

Criterion	Covered	Total	%
statement	39	94	41.4
branch	3	10	30.0
condition	5	12	41.6
subroutine	7	13	53.8
pod	0	4	0.0
total	54	133	40.6

package Image::Nikon::Index;

#use 5.018002;
use strict;
use warnings;
use Image::ExifTool;

our @ISA = qw();
our $VERSION = '0.01';

# methods
sub new {
	my $class = shift;
	my %args  = @_;
	my $self  = {
		folder => ".", # present working directory
		prefix => $args{'prefix'} || undef,
		suffix => $args{'suffix'} || undef,
		exif   => Image::ExifTool->new,
		tags   => [ 'SubSecDateTimeOriginal', 'ModifyDate' ],
		tree   => undef,
			# tree => {
			#	date => {
			#		key => {
			#			name=>'original name',
			#			code=>'new date code',
			#			index=>'sequence number',
			#		},
			#	},
			# }
		files => undef,
		inityear=> $args{'initialyear'} || 2011,
		debug => $args{'debug'} || 1,
	};
	bless $self, $class;
	return $self;
}

# list directory and populate files
sub _list {
	my ($self)=(@_);
	my @files;

	# always open current directory
	opendir DIR, $self->{'folder'} || die "$!\n";
	@files = readdir DIR;
	closedir DIR;
	chomp @files;

	@files = grep { !/^\.+/ } @files; # ignore hidden files, starting with dot
	@files = grep { /^$self->{'prefix'}/ } @files if defined $self->{'prefix'}; # match prefix
	@files = grep { /$self->{'suffix'}$/ } @files if defined $self->{'suffix'}; # match extension
	$self->{'files'} = \@files;
}

# extract file name and process
sub _file {
	my ($self, %opts)=(@_);
	my %dummy;
	my $f = $opts{'file'};
	my $t = $self->{'exif'};

	$t->ExtractInfo ( $f, \%dummy ) || return; # if not an image, skip.
	#my $value = $t->GetValue('SubSecDateTimeOriginal', 1) || return; # if not an image, skip.
	my $value = $t->GetValue($self->{'tags'}->[0], 1) || return; # if not an image, skip.
	my ($date, $time) = split /\s+/, $value, 2 || die $!;
	my $datestr = $self->_date ($date);

	$date =~ s/\://g;
	$time =~ s/\:|\.//g;
	$time = $date.$time;

	my ($updated) = $t->GetValue($self->{'tags'}->[1], 1);
	$updated =~ s/\:|\s+//g;

	$f =~ s/\_//g;
	$f =~ s/\./\_/g;

	$self->{'tree'}->{$date}->{$time.$updated.$f}->{'name'} = $opts{'file'};
	$self->{'tree'}->{$date}->{$time.$updated.$f}->{'code'} = $datestr;
}

# changing date format
sub _date {
	my ($self, $datestr) = (@_);
	my ($y, $m, $d) = split /:/, $datestr;

	$datestr =~ s/^\s+|\s+$//g;
	($y, $m, $d) = split /:/, $datestr;
	$y = chr ( $y - $self->{'inityear'} + ord('A') );
	$datestr = sprintf "%s%1X%02d", $y, $m, $d;
	return $datestr;
}

# indexing
sub _index {
	my ($self, %opts) = (@_);
	my $hash = $opts{'hash'};
	my $i = 1;

	foreach my $key ( sort keys %{$hash} ) {
		$hash->{$key}->{'index'} = sprintf "%03d", $i;
		$i++;
	}
}

# file extension
sub _ext {
	my ($self, $name) = (@_);
	my ($junk, $x) = split /\./, $name;
	return $x;
}

# print all files - key, oldname, newname
sub print {
	my ($self) = (@_);
	my $hash;
	my $newname;

	foreach my $date ( keys %{$self->{'tree'}} ) {
		print "__".$date."__\n" if $self->{'debug'};
		$hash = $self->{'tree'}->{$date};

		foreach my $key ( sort keys %{$hash} ) {
			$newname = $hash->{$key}->{'code'}."_".$hash->{$key}->{'index'}.".".$self->_ext($hash->{$key}->{'name'});
			print sprintf "  %-45s %-15s %-15s\n", $key, $hash->{$key}->{'name'}, " ".$newname;
		}
	}
}

# rename of each file
sub _rename {
	my ($self, %opts) =(@_);
	rename ($opts{'oldname'}, $opts{'newname'});
}

# mass rename
sub transform {
	my ($self) =(@_);
	my $hash;
	my $newname;

	foreach my $date ( keys %{$self->{'tree'}} ) {
		$hash = $self->{'tree'}->{$date};
		foreach my $key ( sort keys %{$hash} ) {
			$newname = $hash->{$key}->{'code'}."_".$hash->{$key}->{'index'}.".".$self->_ext($hash->{$key}->{'name'});
			print $hash->{$key}->{'name'}." ".$newname."\n" if $self->{'debug'};
			$self->_rename ( oldname=>$hash->{$key}->{'name'}, newname=>$newname );
		}
	}
}

sub process {
	my ($self) = (@_);
	my $list = $self->_list;
	my $hash;

	# create node for each file
	foreach my $f ( @{$list} ) {
		$self->_file (file=>$f);
	}

	# do indexing for each available date
	foreach my $date ( keys %{$self->{'tree'}} ) {
		$hash = $self->{'tree'}->{$date};
		$self->_index (hash=>$hash);
	}
	return $self;
}


1;
__END__