[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

NFC: Fun with Linux - f2c

!/usr/bin/perl
#
# Name:     f2c
# Author:   Chris Hedemark <chris at yonderway_com>
# License:  BSD
# Purpose:  Quick converter from fahrenheit to centigrade

main();

sub main {
f2c_prep();
f2c_conv();
f2c_report();
}

sub f2c_prep {
if (!@ARGV) {die "\n"}
$fahr = $ARGV[0];
}

sub f2c_conv {
$cent = ($fahr - 32) * 5 / 9;
}

sub f2c_report {
print "$cent\n";
}