capture a carriage return from <STDIN>

I have a script that pauses while the reader reads the intro text, and
askes them to press return to continue.  At the moment I capture the
input from STDIN into a variable called $waste, do nothing with it, and
continue anyway.  The script complains when it runs...

Name "main::waste" used only once: possible typo at ./addUsers line 66.

Is there a better way of doing this?

Subject: capture a carriage return from <STDIN>

I have a script that pauses while the reader reads the intro text, and
askes them to press return to continue.  At the moment I capture the
input from STDIN into a variable called $waste, do nothing with it, and
continue anyway.  The script complains when it runs...

Name "main::waste" used only once: possible typo at ./addUsers line 66.

Is there a better way of doing this?


I don't know if it's "better" but you may wish to consider:

...
print q{To continue, please press "Enter":};
<>;
...

D. J. Birkett wrote:
> I have a script that pauses while the reader reads the intro text, and
> askes them to press return to continue.  At the moment I capture the
> input from STDIN into a variable called $waste, do nothing with it, and
> continue anyway.  The script complains when it runs...
>
> Name "main::waste" used only once: possible typo at ./addUsers line 66.
>
> Is there a better way of doing this?

Yes, don't capture the input.

print 'Press return to continue.';
<STDIN>;
# continue running the program


John
--
use Perl;
program
fulfillment