Diary/2012-4-20

 まず"度分秒を度に"とその逆をPerlで既述[GPSネタ]

# 度分秒を度
#  呼出 &DMS2D ( 度,分,秒 )   ; 整数,整数,実数
#  戻値 度                    ; 実数
sub DMS2D {
	my($p1,$p2,$p3) = @_;
	return ($p1+($p2/60)+($p3/3600));
}

# 度を度分秒
#  呼出 &D2DMS ( 度 )         ; 実数
#  戻値 ( 度,分,秒 )          ; 整数,整数,実数
sub D2DMS {
	my($p1)= @_;
	my $c1 = int($p1); 
	   $p1 = ($p1 - $c1) * 60; 
	my $c2 = int($p1); 
	   $p1 = ($p1 - $c2) * 60;
	return ($c1,$c2,$p1);
}

まぁPerlでは型をそんなに意識しなくてよいけれどね