2.10 三角法をラジアンではなく度で計算する
# 方法1 use constant PI => (4 * atan2(1,1)); sub deg2rad { my $degrees = shift; return ($degrees / 180) * PI; } sub rad2deg { my $radians = shift; return ($radians / PI) * 180; } # 方法2 use Math::Trig; $radians = deg2rad($degrees); $degrees = rad2deg($radians)