System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. ReadMode(cbreak)
use Term::ReadKey;
ReadMode('cbreak');
if (defined ($char = ReadKey(-1)) ) {
    print "This key was waiting: $char.";
} else {
    print "Sorry, no key was waiting.";
}
ReadMode('normal');