程嶏清单9-11.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 12 行

$PI = 3.14159265358979;
sub deg2rad {
    my $degrees = shift;
    return ($degrees / 180) * $PI;
}
sub rad2deg {
    my $radians = shift;
    return ($radians / $PI) * 180;
}
print deg2rad(90),"\n";
print rad2deg(1);