Re: Don't get the output as expect.

[frozenwithjoy]

in reply to Don't get the output as expect.

The problem with your script is that you are using a single if-elsif-else conditional when you probably need to have a separate conditional for each question or nested ifs (as long as it doesn't get complicated and deep). Also, please use strict;.

[mandalmanas5519]

Thanks for suggestion I have modified the code

use feature ':5.10';
  use strict;
use warnings;


        
print "1.Do you want to enter value for Starting account balance. (y/n
+)?";
    $answer= <STDIN>;
    chomp $answer;
if     ($answer eq "y")
{
    print "Please enter SAB= ";
    $SAB=<STDIN>;
    print "$SAB";
}
print "2.Do you want to enter value date (y/n)?";
$answer= <STDIN>;
    chomp $answer;    
if ($answer eq "y")
{
print "Please enter date= ";
    $Date=<STDIN>;
    print "$Date";
}
else{
print "Exit";
}    

Now i am getting the output what i am expecting

[frozenwithjoy]

Glad to hear. Be sure to declare your variables with my so that everything will run when you have use strict; in effect.

Also, you may want to change this:

if ($answer eq "y")

to something like this:

if ( $answer =~ /^y/i )

That way, it will match Y y Ya yes yup Yar, etc. and let you remove two lines of code since you will no longer need to chomp $answer;.