home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / tcbreak < prev    next >
Encoding:
Text File  |  1990-03-10  |  196 b   |  19 lines
  1. #!/usr/bin/perl
  2.  
  3. do 'source.pl';
  4. &source('cbreak.pl');
  5.  
  6. &cbreak;
  7.  
  8. $| = 1;
  9.  
  10. print "gimme a char: ";
  11.  
  12. $c = getc;
  13.  
  14. print "$c\n";
  15.  
  16. printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
  17.  
  18. &cooked;
  19.