Re: How do I loop until keyboard input?

You need some sort of getc() implementation. I would reccomend using Term::ReadKey. From the example:

        use strict;
        use Term::ReadKey;
        ReadMode 4; # Turn off controls keys
        my $key;
        while (not defined ($key = ReadKey(-1))) {
                print "Test\n";
        }
        print "Get key $key\n";
        ReadMode 0; # Reset tty mode before exiting
[download]

Modify as needed.

Update: Fixed per gellyfish's note.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Comment on Re: How do I loop until keyboard input? Download Code

Replies are listed 'Best First'.
Re^2: How do I loop until keyboard input? by gellyfish (Monsignor) on Dec 15, 2004 at 15:04 UTC
Modify as needed. The first modification needed will be to fix the typo in the `while` line ;-) I have had this fixed in CVS for a while but haven't released it to CPAN yet. Bad maintainer bad bad /J\	[reply] [d/l]