Translate create_funcs.sql to English
[gpstools.git] / tilgps
blobb186fcd5e80dc4d3eef97b23e8ccd5d7982a3be9
1 #!/usr/bin/perl -w
3 # tilgps
4 # Converts gg°mm'ss.sss" to gg°mm.mmmmm'
6 use strict;
8 if ($#ARGV < 2) {
9 die(<<END);
11 Syntax: $0 degrees minutes secons
13 Converts gg°mm'ss.sss" to gg°mm.mmmmm'
14 Decimal values can be used.
16 END
19 my ($Deg, $Min, $Sec) = @ARGV;
20 my $new_min = $Min+($Sec/60);
22 print("$Deg°$new_min'\n");
24 __END__