k2m.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:43 2010 from k2m.pl 2007/04/04 1.1 KB.

#!/perl -w
# NAME: k2m.pl
# AIM: convert kilometer to miles
# geoff mclane - http://geoffmclane.com/mprerl/index.htm - 2007-04-04
use strict;
use warnings;
# from simgear - constants
#/** Meters to Nautical Miles.  1 nm = 6076.11549 feet */
my $SG_METER_TO_NM = 0.0005399568034557235;
#/** Nautical Miles to Meters */
my $SG_NM_TO_METER = 1852.0000;
#/** Meters to Statute Miles. */
my $SG_METER_TO_SM = 0.0006213699494949496;
#/** Statute Miles to Meters. */
my $SG_SM_TO_METER = 1609.3412196;
#/** 2 * PI */
my $SGD_2PI = 6.28318530717958647692;
#/** PI / 2 */
my $SGD_PI_2 = 1.57079632679489661923;
my $kilo = $SG_SM_TO_METER / 1000;
my $stmiles = int((( $kilo * 1000 ) * $SG_METER_TO_SM) + 0.00001);
print "test: $kilo kilometers = $stmiles statute miles ...\n";
parse_args(@ARGV);
$stmiles = ( $kilo * 1000 ) * $SG_METER_TO_SM;
my $nm = ( $kilo * 1000 ) * $SG_METER_TO_NM;
print "$kilo kilometers = $stmiles statute miles ...($nm Nautical Miles)\n";
exit(0);
sub parse_args {
   my (@av) = @_;
   if (@av) {
      $kilo = shift @av;
   }
}
# eof - k2m.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional