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

NFC: Fun with Linux - aquavol

#!/usr/bin/perl
#
# Name:    aquavol
# Author:  Chris Hedemark <chris at yonderway_com>
# License: BSD
# Purpose: Determine volume of aquarium based on measurements.

main();

sub main {
aquavol_prep();
aquavol_comp();
aquavol_rpt();
}

sub aquavol_prep {

print "Length (inches): ";
$length = <STDIN>;
chomp $length;

print "Width (inches): ";
$width = <STDIN>;
chomp $width;

print "Depth (inches): ";
$depth = <STDIN>;
chomp $depth;
}

sub aquavol_comp {
$vol = ($length * $width * $depth) / 231;
}

sub aquavol_rpt {
print "Volume: $vol U.S. Gallons\n";
}