Google Maps を使ったウェブアプリを書いていたので、その派生物(関数)を。 # IN: latitude(from), longitude(from), latitude(to), longitude(to) # OUT: distance(meter) sub dist { my ($lat_1, $lon_1, $lat_2, $lon_2) = @_; my $pi = atan2(1, 1) * 4; my $radius = 6378140; $lat_1 = $lat_1 * $pi / 180; $lon_1 = $lon_1 * $pi / 180; $lat_2 = $lat_2 * $pi / 180; $lon_2 = $lon_2 * $pi / 180; my $deg = sin($lat_1) * sin($lat_2) + cos($lat_1)