- my $lat = $i->{image}->{'Latitude'};
- if ($lat) {
- if ($lat =~ m{^([NS]) (\d+)\xb0 ([0-9.]+)'$}) {
- $lat = $2 + $3/60;
- $lat = -$lat if $1 eq 'S';
- $lat = sprintf "%.6f", $lat;
- } else {
- print "[EXIF: unable to parse latitude $lat] ";
- $lat = undef;
- }
- }
-
- my $lon = $i->{image}->{'Longitude'};
- if ($lon) {
- if ($lon =~ m{^([WE]) (\d+)\xb0 ([0-9.]+)'$}) {
- $lon = $2 + $3/60;
- $lon = -$lon if $1 eq 'W';
- $lon = sprintf "%.6f", $lon;
- } else {
- print "[EXIF: unable to parse longitude $lon] ";
- $lon = undef;
- }
- }