calculator

From: makko (elmakko_at_gmail.com)
Date: 02/28/05 

Date: 28 Feb 2005 06:41:46 -0800

Hello all,
my very first perl program, a calculator that takes formulas;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

##
 # CALC 1.0
 # running: $perl calc.pl
 # elmakko Feb 2005
 ##

use strict;
use warnings;

my $delimit_arr = "\n\t++++++++++++\n\n";
my $argc = scalar(@ARGV);
if($argc != 1)
{
        print "\n/*\n * usage: perl calc.pl <formula>\n */\n\n";
        exit -1;
}
my $ans = eval($ARGV[0]);
system "clear";
banner();
print "\t$ans \n";
print "$delimit_arr";

sub banner()
{
        print "\n\t************\n";
        print "\t* CALC 1.0 *\n";
        print "\t************\n";
        print "\n\n";
}

exit 0;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

regards,
makko.