Perl-программа, конвертирующая углы в градусах в радианы и наоборот (радианы в градусы).
#!/usr/bin/perl
# Конвертор радиан в градусы и наоборот
if (@ARGV < 2){
print "Usage: degrad.pl (r|d) value\n";
}
else{
print RadianDegrees(@ARGV), "\n";
}
sub RadianDegrees($$){
my ($do, $value) = @_;
my $PI = 3.14; # Число Пи
if ($do eq "d"){ # конвертация из радиан в градусы
$outVal = (180 / $PI) * $value;
}
elsif ($do eq "r"){ # конвертация из градусов в радианы
$outVal = ($PI / 180) * $value;
}
else{
$outVal = 0;
}
return $outVal;
}