freebsd-dev/gnu/usr.bin/perl/h2pl/tcbreak
1994-09-10 06:27:55 +00:00

18 lines
179 B
Perl

#!/usr/bin/perl
require 'cbreak.pl';
&cbreak;
$| = 1;
print "gimme a char: ";
$c = getc;
print "$c\n";
printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
&cooked;