Proper use of "EQ" or while loops

rynorx has asked for the wisdom of the Perl Monks concerning the following question:

Hello everyone, I've just recently started using Perl and am having trouble with my first program:

 
#!/usr/bin/perl


print "Press C to continue\n";

$getc = <STDIN>;

while ($getc ne 'c')

    {print "getc is $getc";
    $getc = <STDIN>;}
    
print "It worked, finally";
[download]

No matter what input I give for $getc, I'm not able to get past the while loop. Thanks in advance for any help.

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

Replies are listed 'Best First'.
Re: Proper use of "EQ" or while loops by MidLifeXis (Monsignor) on Jul 22, 2013 at 15:01 UTC
See the documentation for chomp. --MidLifeXis	[reply]
Re^2: Proper use of "EQ" or while loops by rynorx (Novice) on Jul 22, 2013 at 15:30 UTC
I got it to work with chomp. Thanks for the help.	[reply]
Re: Proper use of "EQ" or while loops by davido (Cardinal) on Jul 22, 2013 at 15:30 UTC
`{ 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";` [download] 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";` [download] ...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";` [download] Dave	[reply] [d/l] [select]
Re: Proper use of "EQ" or while loops by toolic (Bishop) on Jul 22, 2013 at 15:12 UTC
I've just recently started using Perl and am having trouble with my first program This may help: the Basic debugging checklist And you probably want to say (lower-case "c"): `print "Press c to continue\n";` [download]	[reply] [d/l]
Re: Proper use of "EQ" or while loops by cursion (Pilgrim) on Jul 22, 2013 at 15:35 UTC
It's helpful to put markers around things you print out for debugging or testing ... `print "getc is [$getc]\n";` [download]	[reply] [d/l]