#! perl -w

use strict;

my $usage = <<__EOT__;
Usage:
$0 [<latitude> <longitude>] [-test]
Converts latitude and longitude (in degrees) to format suitable for Mo
+nkMap.
    -test    runs selftest
__EOT__

my ($lat, $lon, $test) = (0, 0, 0);
if (@ARGV == 2) {
    ($lat, $lon) = @ARGV;
}
elsif (@ARGV == 1 && $ARGV[0] eq '-test') {
    $test = 1;
}
else {
    die $usage;
}

if ($test) {
    selftest();
}
else {
    printf "%s\n", ll2monkmap ($lat, $lon);
}

exit;


sub ll2monkmap {
    my ($lat, $lon) = @_;
    sprintf "%12.5f%12.5f   <!-- Location:latitude=%s,longitude=%s-->"
+, $lat, $lon, dec2degminsec($lat), dec2degminsec($lon);
}

sub dec2degminsec {
    my $dec = shift;

    while ($dec < -180) {
        $dec += 360;
    }
    while ($dec > 180) {
        $dec -= 360;
    }

    my $neg = $dec < 0;
    $dec = - $dec if $neg;

    my $deg = int $dec;
    $dec -= $deg;

    $dec *= 60;
    my $min = int $dec;
    $dec -= $min;

    $dec *= 60;
    my $sec = int $dec;

    sprintf "%s%03d.%02d.%02d", $neg ? "-" : "", $deg, $min, $sec;
}

sub selftest {
    my @angles = ( -360, -270, -180, -90, 0, 90, 180, 270, 360 );
    my @deltas = ( -0.445, 0, 0.555    );
    for my $d (@deltas) {
        for my $a (@angles) {
            my $x = $a+$d;
            my $str = dec2degminsec($x);
            my $strll = ll2monkmap($x, $x);
            print "$strll\n";
        }
    }
}

__END__

Author:    rudif@bluemail.ch 
        rudif@lecroy.com

    46.20832     6.14296   <!-- Location:latitude=046.12.29,longitude=
+006.08.34-->
[download]

And before I forgot to mention it, jcwren++ for Monk Maps and Big Monk Map.
    cheers,
    Don
    striving for Perl Adept

Update:
    striving for XP Jester

I should have put in the original note, that the parser runs at 3.30 am EST, thats why step 4 is a wait.

I dont know how the parser deals with duplicate locations, it may spread your molecules very thinly over the intervening area :). I'd wait 'til tomorrow and see where you end up....

pmas

To make errors is human. But to make million errors per second, you need a computer.

Update: As pointed out to me by blakem, you can still get the longitude/latitude information from MapBlast!, by clicking on the Yellow Pages tab above the map.

However, Eagle Geocoding (as suggested by ybiC still works.

Of course, as that Great American Merle Haggard points out, "Your flag decal won't get you into heaven any more", either. So there.

Now located in Atlanta for your viewing pleasure

They laughed at Joan of Arc, but she went right ahead and built it. --Gracie Allen

http://mapsonus.switchboard.com can also be told to present lat/lon as well.

-- Randal L. Schwartz, Perl hacker

Actually, "Your Flag Decal won't get you into Heaven anymore" was written and sung by John Prine. Glenn

Here's my list of attempts (Sorry for not linking any URLs):

• MapBlast doesn't appearantly recognize my country
• MapQuest correctly spots me but doesn't share those numbers
• MultiMap gives everything (including the min and sec) but I need their written permission to use the information
• Heaven Above gives me something good and it doesn't say about permission. Well, they do say about "as-is", so I'm own my own.
• Cybermap CBN gives me similiar result as well, so I will start from here

Latitude: -6.616154 
Longitude: 106.816305
[download]

$ monkmap -6.616154 106.816305
  -6.61615   106.81630   <!-- Location:latitude=-006.36.58,longitude=1
+06.48.58-->
[download]

Well, it looks pretty nice :-) Now before I put that comment tag on my homenode, I'd like to know if it's the meat the parser that runs at 3.30 am EST is looking for, I think I still have a few hours.

So please help this poor soul and ensure him that the information is correct so he can tell his family and friends that there's a little red with his name on that BigMonkMap.

Well, I wish I could upvote on jcwren for this excellent work/hack!

You don't have to wait for the daily scan anymore: you can use this form to scan just your home itself.

Update: Pity google maps isn't much of a help in this case, because it doesn't have even a low-scale map of your country.

Thank you, ambrus. I was on the form before, and it got it wrong because, well, because I had no that lat/long tag yet. Fortunately you remind me about it :-) Due to careless copy/paste under excitement, I fed the scanner with:

<!-- Location:latitude=-006.36.58,longitude=1 
+06.48.58-->
[download]

It gave me,

Argument "1+06" isn't numeric in abs at /home/system/perlmonks/monkmapper.pl line 839.
Node 607636 has a valid location tag (latitude=-006.36.58,longitude=1 +06.48.58)

This is only a warning, but I think it can be useful to jcwren or someone maintains the script.

Anyway, that wrong input let BigMonkMap put me on the middle of nowhere around Atlantic Ocean. And I guess it was about 20-30 dots away from one of African coasts. But now, I can tell my kids that their dad's on the map. A special map that is one of its kind. And somehow it makes me really think that I'm really nothing but a single red dot .....

Well, shall we?

---

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!