Re^3: Is there a way to halt the program until an enter is pressed?

...
print "Press <Enter> to continue, or 'q' to quit: ";
my $input = <STDIN>;
exit if $input eq "q\n";
...
[download]

(Note that <> reads lines, so - strictly speaking - they'd have to enter q<Enter>... In case that could be an issue, you might want to choose a different wording for the prompt.)

Or tell them to use Ctrl-C.

And make a subroutine out of the snippet if you need it more than once.

Comment on Re^3: Is there a way to halt the program until an enter is pressed? Select or Download Code

Replies are listed 'Best First'.
Re^4: Is there a way to halt the program until an enter is pressed? by Anonymous Monk on Mar 14, 2011 at 00:38 UTC
It just waits without printing the print statement,I mean it is already expecting a user input without printing the print statement.\ `print "Press <Enter> to continue, or 'q' to quit: "; my $input = <STDIN>; exit if $input eq "q\n";` [download]	[reply] [d/l]
Re^5: Is there a way to halt the program until an enter is pressed? by GrandFather (Saint) on Mar 14, 2011 at 00:43 UTC
You may be Suffering from buffering. Try setting the $\| special variable to 1 (see perlvar). True laziness is hard work	[reply]
Re^6: Is there a way to halt the program until an enter is pressed? by Anonymous Monk on Mar 14, 2011 at 00:47 UTC
Can you advise where should I set $\| to 1,right before the print statement?	[reply]
Re^7: Is there a way to halt the program until an enter is pressed? by GrandFather (Saint) on Mar 14, 2011 at 00:50 UTC
Re^8: Is there a way to halt the program until an enter is pressed? by Anonymous Monk on Mar 14, 2011 at 01:05 UTC
Some notes below your chosen depth have not been shown here