Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Proper use of "EQ" or while loops

by davido (Archbishop)
on Jul 22, 2013 at 15:30 UTC ( #1045674=note: print w/ replies, xml ) Need Help??


in reply to Proper use of "EQ" or while loops

{ my $input = ''; while( $input ne 'c' && $input ne 'C' ) { print "Press C to continue\n"; $input = <STDIN>; chomp $input; } } print "It worked, of course.\n";

I would probably turn the Boolean expression into $input !~ /^c$/i, but your class probably hasn't gotten to regexes yet.

If this is not homework, prompting made easy:

use IO::Prompt::Hooked; my $input = prompt( message => 'Press c to continue.', validate => qr/^c$/i, ); print "It worked, of course.\n";

...of if you never need to look at $input again:

use IO::Prompt::Hooked; prompt( message => 'Press c to continue.', validate => qr/^c$/i, ); print "If we're here, we know it worked.\n";

Dave


Comment on Re: Proper use of "EQ" or while loops
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2014-07-14 05:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (255 votes), past polls