EXIF Statistics

 
Title   Usage of Nikkor Lenses 2005-2009
Click to enlarge pictureUsage of Nikkor Lenses 2005-2009
Usage of Nikkor Lenses 2005-2009
picture by tmb  


Finally I got around writing a little sniplet to fetch some EXIF Statistics. By using the
Image::ExifTool
Perl library this script is little more than a histogram generating filter. For those of you looking for something similar here are the most important code lines.

GetAllInSub($path);
foreach(@AllPics)	{
	my $EXIF = $exifTool->ImageInfo($_);
	if(defined $$EXIF{$EXIF_key})	{
	 	$nHisto{$$EXIF{$EXIF_key}}++;
	}
}

The loop above will generate the histogram. For fetching the images I use this little routine:
sub GetAllInSub {
	my $dir = shift;
	opendir DIR, $dir or return;
	my @contents = map "$dir/$_", sort grep !/^\.\.?$/, readdir DIR;
	closedir DIR;
	foreach (@contents) {
		&GetAllInSub($_);
		if($_=~m/^.*?[NEF,JPG]$/)	{
			push(@AllPics,"$_\n");
		}
	}
} 

Dropping the generated results into Numbers (or such), you can generate all the graphics you like. Below you can see the focal lengths I used in the last 4 years.

 
Title   Focal Lengths (in 35mm equiv.) 2005-2009
Click to enlarge pictureFocal Lengths (in 35mm equiv.) 2005-2009
Focal Lengths (in 35mm equiv.) 2005-2009
picture by tmb