Notes from September 6, 2013
#!/usr/bin/perl
use strict;
my $response;
my $balance=1000;
my $amount;
do
{
print "1 Make a deposit\n";
print "2 Make a withdrawal\n";
print "3 Get balance\n";
print "4 stop\n";
print "\n\nPlease enter option ";
chomp($response=<STDIN>);
if ($response==1)
{
print "please enter deposit amount ";
chomp($amount=<STDIN>);
$balance=$balance+$amount;
}
elsif ($response==2)
{
do
{
print "please enter amount to withdraw ";
chomp($amount=<STDIN>);
if ($amount>$balance)
{
print "WARNING !! Amount can not exceed balance. Your balance is $balance\n";
}
} until ($amount<=$balance);
$balance=$balance-$amount;
}
elsif ($response==3)
{
print "Balance is $balance \n";
print "Please enter reutrn to continue \n";
chomp($amount=<STDIN>);
}
} until ($response ==4);
print "Thank you for banking at Bill's\n";