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";