Proper use of "EQ" or while loops

[rynorx]

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

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

[MidLifeXis]

See the documentation for chomp.

[rynorx]

I got it to work with chomp. Thanks for the help.

[davido]

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

[toolic]

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

[cursion]

It's helpful to put markers around things you print out for debugging or testing ...

print "getc is [$getc]\n";