tilgps

   1 #!/usr/bin/perl -w
   2
   3 # $Id$
   4 # Converts gg°mm'ss.sss" to gg°mm.mmmmm'
   5
   6 use strict;
   7
   8 if ($#ARGV < 2) {
   9         die(<<END);
  10
  11 Syntax: $0 degrees minutes secons
  12
  13 Converts gg°mm'ss.sss" to gg°mm.mmmmm'
  14 Decimal values can be used.
  15
  16 END
  17 }
  18
  19 my ($Deg, $Min, $Sec) = @ARGV;
  20 my $new_min = $Min+($Sec/60);
  21
  22 print("$Deg°$new_min'\n");
  23
  24 __END__