ll2dms.pl to HTML.

index -|- end

Generated: Sat Oct 24 16:35:23 2020 from ll2dms.pl 2016/10/03 6.1 KB. text copy

#!/usr/bin/perl -w
# NAME: ll2dms.pl
# AIM: Convert a lat, lon to degree, minutes, seconds
# 2016-10-03 - Change from dd mm.ddd to dd mm ss.ddd
# 2011-07-27 - Initial cut
use strict;
use warnings;
use File::Basename;  # split path ($name,$dir,$ext) = fileparse($file [, qr/\.[^.]*/] )
use Cwd;
my $perl_dir = 'C:\GTools\perl';
unshift(@INC, $perl_dir);
require 'logfile.pl' or die "Unable to load logfile.pl ...\n";
# log file stuff
my ($LF);
my $pgmname = $0;
if ($pgmname =~ /(\\|\/)/) {
    my @tmpsp = split(/(\\|\/)/,$pgmname);
    $pgmname = $tmpsp[-1];
}
my $outfile = $perl_dir."\\temp.$pgmname.txt";
open_log($outfile);

# user variables
my $vers = "0.0.1 2011-07-27";
my $load_log = 0;
my $in_file = '';
my $invert_quad = 0;
my $bad_latlon = 200;
my $usr_lat = $bad_latlon;
my $usr_lon = $bad_latlon;

my $debug_on = 0;
my $def_file = 'def_file';

### program variables
my @warnings = ();
my $cwd = cwd();
my $os = $^O;

sub show_warnings($) {
    my ($val) = @_;
    if (@warnings) {
        prt( "\nGot ".scalar @warnings." WARNINGS...\n" );
        foreach my $itm (@warnings) {
           prt("$itm\n");
        }
        prt("\n");
    } else {
        ###prt( "\nNo warnings issued.\n\n" );
    }
}

sub pgm_exit($$) {
    my ($val,$msg) = @_;
    if (length($msg)) {
        $msg .= "\n" if (!($msg =~ /\n$/));
        prt($msg);
    }
    show_warnings($val);
    close_log($outfile,$load_log);
    exit($val);
}


sub prtw($) {
   my ($tx) = shift;
   $tx =~ s/\n$//;
   prt("$tx\n");
   push(@warnings,$tx);
}

sub process_in_file($) {
    my ($inf) = @_;
    if (! open INF, "<$inf") {
        pgm_exit(1,"ERROR: Unable to open file [$inf]\n"); 
    }
    my @lines = <INF>;
    close INF;
    my $lncnt = scalar @lines;
    prt("Processing $lncnt lines, from [$inf]...\n");
    my ($line,$inc,$lnn);
    $lnn = 0;
    foreach $line (@lines) {
        chomp $line;
        $lnn++;
        if ($line =~ /\s*#\s*include\s+(.+)$/) {
            $inc = $1;
            prt("$lnn: $inc\n");
        }
    }
}

sub process_lat_lon() {
    my ($ns,$ew,$degs,$mins,$lat,$lon,$secs,$mind,$len);
    my $maxlen = 0;
    $len = length($usr_lat);
    if ($usr_lat != $bad_latlon) {
        $maxlen = $len if ($len > $maxlen);
    }
    $len = length($usr_lon);
    if ($usr_lon != $bad_latlon) {
        $maxlen = $len if ($len > $maxlen);
    }
    if ($usr_lat != $bad_latlon) {
        $lat = $usr_lat;
        $ns = 'N';
        if ($lat < 0) {
            $ns = 'S';
            $lat *= -1;
        }
        $degs = int($lat);
        $mind = (($lat - $degs) * 60);
        $mins = int($mind);
        $secs = (($mind - $mins) * 60);
        $secsint(($secs + 0.005) * 100) / 100;

        $usr_lat = " $usr_lat" while (length($usr_lat) < $maxlen);
        if ($invert_quad) {
            prt("$usr_lat = ${ns}${degs} $mins $secs\n");
        } else {
            prt("$usr_lat = ${degs} $mins $secs $ns\n");
        }
    }
    if ($usr_lon != $bad_latlon) {
        $lon = $usr_lon;
        $ew = 'E';
        if ($lon < 0) {
            $ew = 'W';
            $lon *= -1;
        }
        $degs = int($lon);
        $mind = (($lon - $degs) * 60);
        $mins = int($mind);
        $secs = (($mind - $mins) * 60);
        $secsint(($secs + 0.005) * 100) / 100;

        $usr_lon = " $usr_lon" while (length($usr_lon) < $maxlen);
        if ($invert_quad) {
            prt("$usr_lon = ${ew}${degs} $mins $secs\n");
        } else {
            prt("$usr_lon = ${degs} $mins $secs $ew\n");
        }
    }
}

#########################################
### MAIN ###
parse_args(@ARGV);
process_lat_lon();
pgm_exit(0,"");
########################################
sub give_help {
    prt("$pgmname: version $vers\n");
    prt("Usage: $pgmname [options] [lat,lon]\n");
    prt("Options:\n");
    prt(" --help (-h or -?) = This help, and exit 0.\n");
    prt(" --lat <degs>      = Set latitude to convert.\n");
    prt(" --lon <degs>      = Set longitude to convert.\n");
    prt(" --invert     (-i) = Invert, and put quadrant first.\n");

}
sub need_arg {
    my ($arg,@av) = @_;
    pgm_exit(1,"ERROR: [$arg] must have following argument!\n") if (!@av);
}

sub parse_args {
    my (@av) = @_;
    my ($arg,$sarg,@arr,$cnt);
    $cnt = 0;
    while (@av) {
        $arg = $av[0];
        $sarg = $arg;
        if (($arg =~ /^-/)&& !($arg =~ /^-\d+/)) {
            $sarg = substr($arg,1);
            $sarg = substr($sarg,1) while ($sarg =~ /^-/);
            if (($sarg =~ /^h/i)||($sarg eq '?')) {
                give_help();
                pgm_exit(0,"Help exit(0)");
            } elsif ($sarg =~ /^lat/) {
                need_arg(@av);
                shift @av;
                $usr_lat = $av[0];
            } elsif ($sarg =~ /^lon/) {
                need_arg(@av);
                shift @av;
                $usr_lon = $av[0];
            } elsif ($sarg =~ /^i/) {
                $invert_quad = 1;
            } else {
                pgm_exit(1,"ERROR: Invalid argument [$arg]! Try -?\n");
            }
        } else {
            # assume a lat.lon pair, sepearated by a comma
            @arr = split(/,/,$sarg);
            if (scalar @arr == 2) {
                $usr_lat = $arr[0];
                $usr_lon = $arr[1];
                $cnt = 2;
            } else {
                if ($cnt == 0) {
                    $usr_lat = $sarg;
                } elsif ($cnt == 1) {
                    $usr_lon = $sarg;
                } else {
                    pgm_exit(1,"ERROR: Invalid argument [$arg]! Got lat=$usr_lat, lon=$usr_lon!! Try -?\n");
                }
            }
            $cnt++;
        }
        shift @av;
    }

    if ((($usr_lat == $bad_latlon)&&($usr_lon == $bad_latlon)) && $debug_on) {
        $usr_lat = -31.69916275;
        $usr_lon = 148.63501248;
    }
    if (($usr_lat == $bad_latlon)&&($usr_lon == $bad_latlon)) {
        pgm_exit(1,"ERROR: No --lat nor --lon <degs> found in command!\n");
    }
}

# eof - template.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional