You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
140 B
Perl
9 lines
140 B
Perl
5 years ago
|
system "stty cbreak </dev/tty >&1";
|
||
|
|
||
|
print ">";
|
||
|
|
||
|
while (($char = getc) ne 'q') {
|
||
|
print "\n";
|
||
|
print "You typed $char\n>";
|
||
|
}
|