Mega Code Archive

 

Categories / Perl / Language Basics

 

Read a single character from the keyboard

use Term::ReadKey;     print "Please enter character here: ";     ReadMode("cbreak",STDIN);     $Input = getc(STDIN);     ReadMode("original",STDIN);     print "$Input\nInput = $Input\n";