home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
gnu
/
perl-4.036.tar.gz
/
perl-4.036.tar
/
perl-4.036
/
h2pl
/
tcbreak
< prev
next >
Wrap
Text File
|
1993-02-08
|
179b
|
18 lines
#!/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;