Perl LL2UTM - Convertire Latitudine e Longitudine in coordinate di Mercatore (UTM)

LL2UTM è una utiity scritta in PERL che mette a disposizione due subroutine per convertire coordinate espresse in Latitudine e Longitudine in coordinate sul sistema di riferimento UTM, o di Mercatore (quello delle carte nautiche, per capirci).

Si tratta semplicemente di una traduzione da quella scritta in Python da Russ Nelson ( https://code.google.com/p/pys60gps/source/browse/trunk/lib/LatLongUTMcon... ) che ringrazio per il lavoro fatto.

Il file lo trovate in allegato qui sotto.

Esempio d'uso:

sub test()
{
my $ellipse=23;
my @utm= &ll2utm($ellipse,45,14);
my @ll=&umt2ll($ellipse,$utm[1],$utm[2],$utm[0]);
print "L2U E:$ellips_name{$ellipse} (z,n,e): @utm\nU2L E:$ellips_name{$ellipse} (lat,long): @ll\n";
}