dms2ll.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:10:50 2011 from dms2ll.pl 2011/07/21 2.6 KB.

#!/bin/perl
# dms2ll.pl - Oct 2005 - geoff mclane
# AIM: To accept an input DEGREES MINUTES (SECONDS DECIMAL) [NSEW]
# and convert to a single decimal degrees ... 47 28 0 N
# 21/07/2011 - Fix bug when entered 
# 12/11/2010 - Attempt to reconstitute the same FORM
# 20061206 - Later added conversion back to DEG MIN SECS as a check ...
use strict;
use warnings;
# print "Hello, World ... Arguments are ...\n";
my $g_argcnt = 0;
my $arg = '';
my $arg2 = '';
my $g_args = '';  # out of array, into string
my $degs = 0;
my $deg1 = 0;
my $quad = '';
my $g_degs = 0; # first argment
foreach $arg (@ARGV) {
   $g_args .= ' ' if ($g_argcnt);
   $g_args .= $arg;
   $g_argcnt++;
   if ($g_argcnt == 1) {
        if ($arg =~ /^\d/) {
            # start with a number
        } else {
            $arg = substr($arg,1) if ($arg =~ /^\w/);
        }
        $arg = substr($arg,0,length($arg)-1) if ($arg =~ /\D$/);
      $deg1 = $arg;
      $degs += $arg;
      print "Arg 1 Degrees = $arg ($deg1) = $degs\n";
        $g_degs = $arg;
   } elsif ($g_argcnt == 2) {
        $arg = substr($arg,0,length($arg)-1) if ($arg =~ /\D$/);
      $arg2 = $arg;
      $arg2 =~ s/\'//;
      $degs += ($arg2 / 60);
      $deg1 = ($arg2 / 60);
      print "Arg 2 Minutes = $arg ($deg1) = $degs\n";
   } elsif ($g_argcnt == 3) {
      $arg2 = $arg;
      $arg2 =~ s/\"//;
        $arg2 = substr($arg2,0,length($arg2)-1) while ($arg2 =~ /\D$/);
        $arg2 = substr($arg2,0,length($arg2)-1) while ($arg2 =~ /\s$/);
      $degs += ($arg2 / (60*60));
      $deg1 = ($arg2 / (60*60));
      print "Arg 3 Seconds = $arg ($deg1) = $degs\n";
   } else {
      $deg1 = 0;
      print "Arg 4+ = $arg ($deg1) = $degs\n";
        print "Unknown argument...\n";
        exit(1);
   }
}

print "Found $g_argcnt arguments ... [$g_args]\n";

if ($g_args =~ /(N|E)/i) {
   # nothing
   $quad = $1;
   print "Quadrant: $quad ...\n";
} elsif ($g_args =~ /(S|W)/i) {
   $degs *= -1;
   $quad = $1;
   print "Quadrant: $quad ...(negative)\n";
} else {
   print "No quadrant NSEW found ... assumed positive ...[$g_args]\n";
}

print "Degrees = $degs\n";
# now to convert is back
$quad = 'N|E';
if ($degs < 0) {
   $quad = 'S|W';
   $degs *= -1;
}
my $idegs = int($degs);
my $rmins = ($degs - $idegs) * 60;
my $imins = int($rmins);
my $rsecs = ($rmins - $imins) * 60;
if ($g_argcnt == 1) {
    print "dms = [$g_degs $quad] ... from [$g_args]\n";
} elsif ($g_argcnt == 2) {
    print "dms = [$idegs $rmins $quad] ... from [$g_args]\n";
} elsif ($g_argcnt == 3) {
    print "dms = [$idegs $imins $rsecs $quad] ... from [$g_args]\n";
} else {
    #print "dms = [$idegs $imins $rsecs $quad] ... from [$args]\n";
}
exit(0);

# eof = dms2ll.pl

index -|- top