in reply to Use perl to extract GPS coordinates from a cell phone image.

use 5.010;
use strict;
use warnings;

use Image::ExifTool ':Public';

my $filename = "MyImage.jpeg";
my $metadata = ImageInfo $filename;

say "Latitude:  ", $metadata->{GPSLatitude};
say "Longitude: ", $metadata->{GPSLongitude};
say "Altitude:  ", $metadata->{GPSAltitude};
say "DateTime:  ", $metadata->{GPSDateTime};

[download]

Works for my phone; different phones may set different EXIF keys, so you may need to experiment a little.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: Use perl to extract GPS coordinates from a cell phone image.
by flexvault (Monsignor) on Jan 06, 2013 at 15:29 UTC

    Hello tobyink,

    ++ for a great response. I have tried using your sample script and everything works great, except I have yet to see GPS data results. I reread the CPAN docs for 'Image::ExifTool' and it references a config file and was wondering if you had defined a config file?

    I'm using a LG LS670 phone camera with GPS on, as well as checking some apple camera pictures that show GPS info. (Friend sent pictures to me, so I hope the pictures actually have the GPS info embedded).

    Any ideas appreciated.

    Thank you...Ed

    "Well done is better than well said." - Benjamin Franklin

[reply]

      Works out of the box for me. (HTC Explorer phone, Android 2.3.)

      You could try throwing $metadata at Data::Dumper to see what's inside...

      use Data::Dumper;

print Dumper ImageInfo "MyImage.jpeg";

      [download]
      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
[select]

        tobyink,

        Thanks for the suggestion (which I tried), but neither picture had any GPS info. I'm running Android 2.3, so I'm going to assume that the camera's aren't set up correctly.

        Thanks...Ed

        "Well done is better than well said." - Benjamin Franklin

[reply]

In Section Seekers of Perl Wisdom