exifinfo.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Module::Load 'load';
use Module::Load::Conditional 'can_load';

die 'Image::ExifTool not installed' unless can_load('modules' => {'Image::ExifTool' => 0});

load('Image::ExifTool');

my $e = Image::ExifTool->new;

my $f = shift || die 'no file specified';

die "file `$f' not found" unless ( -f $f );

die 'unable to extract exif info' unless $e->ExtractInfo($f);

printf("%30s: %s\n", $_, handle_binary($e->GetValue($_))) for ( sort $e->GetFoundTags() );

sub handle_binary
{
        my $value = shift || '';

        return '-- BINARY DATA, NOT PRINTED' if ( ref $value or $value =~ /[^\x20-\x7e]/ );
        return $value;
}