I'm happy to say that I've figured out how to clear the keyboard buffer and prevent the annoying type-ahead:
use Term::ReadKey; ... clear_keys(); print MORE $message; ... sub clear_keys { while (my $key = ReadKey(-1)) { } }
In reply to Re: Simple Way to Paginate Output?
by bobdog
in thread Simple Way to Paginate Output?
by bobdog
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |