Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-11-23 02:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (127 votes), past polls