Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Don't get the output as expect.

by frozenwithjoy (Curate)
on Jun 05, 2013 at 20:03 UTC ( #1037294=note: print w/ replies, xml ) Need Help??


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


Comment on Re: Don't get the output as expect.
Download Code
Re^2: Don't get the output as expect.
by mandalmanas5519 (Initiate) on Jun 05, 2013 at 20:12 UTC
    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

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1037294]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (17)
As of 2015-07-06 14:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (75 votes), past polls