degs2rads.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:10:48 2011 from degs2rads.pl 2010/08/17 596.

#!/usr/bin/perl -w
# NAME: degs2rads.pl
# AIM: Given input of DEGREES, output RADIANS
# 17/08/2010 geoff mclane http://geoffair.net/mperl
use strict;
use warnings;
use Math::Trig;
# $rad = deg2rad(120);
my ($degs);
if (@ARGV) {
    $degs = shift @ARGV;
    if ($degs =~ /^(\d|-|\+|\.)+$/) {
        print "Converting [$degs] degrees = ".deg2rad($degs)." radians\n";
    } else {
        print "Converting [$degs]? = ".deg2rad($degs)." radians, but appears not a degree value!\n";
    }
} else {
    print "Enter the degrees to convert to radians...\n";
}
# eof - degs2rads.pl

index -|- top