Over a million developers have joined DZone.
{{announcement.body}}
{{announcement.title}}

DZone's Guide to

# Distance Calculation Using Latitude And Longitude In Perl

·
Free Resource

Comment (0)

Save
{{ articles[0].views | formatCount}} Views
```ZIPCodeWorld.com provides this routine to calculate the distance between two points (given the latitude/longitude of those points) in Perl. It is being used to calculate distance between two points lat1, long1 and lat2, long2 and uses radius of earth in kilometers or miles as an argurments using our ZIPCodeWorld(TM) and PostalCodeWorld(TM) products which offer the United States ZIP codes, Canadian Postal Codes, Mexican Postal Codes and North American Area Codes database subscription and solution services.

```
\$pi = atan2(1,1) * 4;

sub distance {
my (\$lat1, \$lon1, \$lat2, \$lon2, \$unit) = @_;
my \$theta = \$lon1 - \$lon2;
\$dist  = acos(\$dist);
\$dist = \$dist * 60 * 1.1515;
if (\$unit eq "K") {
\$dist = \$dist * 1.609344;
} elsif (\$unit eq "N") {
\$dist = \$dist * 0.8684;
}
return (\$dist);
}

#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#:::  This function get the arccos function using arctan function   :::
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
sub acos {
return \$ret;
}

#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#:::  This function converts decimal degrees to radians             :::
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
my (\$deg) = @_;
return (\$deg * \$pi / 180);
}

#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#:::  This function converts radians to decimal degrees             :::
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
return (\$rad * 180 / \$pi);
}

print distance(32.9697, -96.80322, 29.46786, -98.53506, "M") . " Miles\n";
print distance(32.9697, -96.80322, 29.46786, -98.53506, "K") . " Kilometers\n";
print distance(32.9697, -96.80322, 29.46786, -98.53506, "N") . " Nautical Miles\n";

``````
Topics:

Comment (0)

Save
{{ articles[0].views | formatCount}} Views

Opinions expressed by DZone contributors are their own.