in reply to Re^2: Zip Code Module?
in thread Zip Code Module?
(ran as a test) and I had this 'output':use Geo::PostalCode; my $gp = Geo::PostalCode->new(db_dir => "."); my $record = $gp->lookup_postal_code(postal_code => '07302'); my $lat = $record->{lat}; my $lon = $record->{lon}; my $city = $record->{city}; my $state = $record->{state}; my $distance = $gp->calculate_distance(postal_codes => ['07302','100 +04']); $record = $gp->lookup_city_state(city => "Jersey City",state => "NJ" +); $lat = $record->{lat}; $lon = $record->{lon}; my $postal_codes = $record->{postal_codes}; $postal_codes = $gp->nearby_postal_codes(lat => $lat, lon => $lon, distance => 50); print qq~<br> City is ~ . $city . qq~<br> State is ~ . $state . qq~<br> Latitude is ~ . $lat . qq~<br> Longitude is ~ . $lon . qq~<br> <br> Nearby Zips are: $postal_codes~;
City is
State is
Latitude is
Longitude is
Nearby Zips are: ARRAY(0x8674890)
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Zip Code Module?
by sgifford (Prior) on Dec 17, 2004 at 04:28 UTC | |
by powerhouse (Friar) on Dec 17, 2004 at 06:59 UTC | |
by sgifford (Prior) on Dec 17, 2004 at 07:17 UTC | |
by powerhouse (Friar) on Dec 17, 2004 at 09:13 UTC | |
by simonm (Vicar) on Dec 17, 2004 at 17:06 UTC | |
| |
|
Re^4: Zip Code Module?
by sifen (Beadle) on Dec 17, 2004 at 03:56 UTC |