Geo::Functions - Package for standard Geo:: functions. use Geo::Functions qw{deg_rad deg_dms rad_deg}; #import into namespace print "Degrees: ", deg_rad(3.14/4), "\n"; use Geo::Functions; my $obj = Geo::Functions->new; print "Degrees: ", $obj->deg_rad(3.14/2), "\n"; Function naming convention is "format of the return" underscore "format of the parameters." For example, you can read the deg_rad function as "degrees given radians" or "degrees from radians".

new
The new() constructor my $obj = Geo::Functions->new();

deg_dms
Degrees given degrees minutes seconds. my $deg=deg_dms(39, 29, 17.134); my $deg=deg_dms(39, 29, 17.134, 'N');

deg_rad
Degrees given radians. my $deg=deg_rad(3.14);

rad_deg
Radians given degrees. my $rad=rad_deg(90);

rad_dms
Radians given degrees minutes seconds. my $rad=rad_dms(45 30 20.0);

round
Round to the nearest integer. This formula rounds toward +/- infinity. my $int=round(42.2);

dms_deg
Degrees minutes seconds given degrees. my ($d, $m, $s, $sign)=dms_deg($degrees, qw{N S}); my ($d, $m, $s, $sign)=dms_deg($degrees, qw{E W});

dm_deg
Degrees minutes given degrees. my ($d, $m, $sign)=dm_deg($degrees, qw{N S}); my ($d, $m, $sign)=dm_deg($degrees, qw{E W});

mps_knots
meters per second given knots my $mps=mps_knots(50.0);

knots_mps
knots given meters per second my $knots=knots_mps(25.0); Please send to the geo-perl email list. Michael R. Davis qw/perl michaelrdavis com/ Copyright (c) 2006 Michael R. Davis (mrdvt92) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Geo::Constants Geo::Ellipsoids