Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://542902]
[LanX]: Jeez .... UTF8 in my company is driving me crazy
[LanX]: seems like my boss has activated an extra UTF8 encoding such that my JSON stuff arives twice encoded in the browser ... oO
[LanX]: he loves to do this with regexes ...
LanX considers looking for a new project ...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2018-03-19 23:22 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (246 votes). Check out past polls.