Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Getting Locations using Distance

by kvale (Monsignor)
on Apr 12, 2006 at 17:28 UTC ( #542902=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Geo::Coder::US;
    Geo::Coder::US->set_db( "geocoder.db" );
    ...
                        "1005 Gravenstein Hwy N, 95472" );
    print "O'Reilly is located at $ora->{lat} degrees north, "
                                 "$ora->{long} degrees east.\n";
    
  2. or download this
    use Geo::Ellipsoid;
      $geo = Geo::Ellipsoid->new(ellipsoid=>'NAD27', units=>'degrees');
    ...
      ($lat,$lon) = $geo->at( @origin, 45.0, 2000 );
      ( $x, $y ) = $geo->displacement( @origin, $lat, $lon );
      @pos = $geo->location( $lat, $lon, $x, $y );
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://542902]
help
Chatterbox?
[karlgoethebier]: Totally OT but my pleasure: Next week i'll have my first archery lesson.
[Corion]: Hi jkva!
[Corion]: karlgoethevier: Oooh, that sounds interesting! ;)
[karlgoethebier]: btw, good morning
[Happy-the-monk]: karlgoethebier: have fun! Did some archery at the age of 14 or so.
[karlgoethebier]: Corion: It is, indeed.
[Happy-the-monk]: even more OT: received the complete series of Robin Hood/Robin of Sherwood 1984 on used dvds this morning :)
[Happy-the-monk]: (purely coincidental)
[jkva]: Corion Hey there :)

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (12)
As of 2017-10-20 09:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (260 votes). Check out past polls.

    Notices?