home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / h2pl / tcbreak2 < prev   
Encoding:
Text File  |  1994-10-18  |  180 b   |  18 lines
  1. #!/usr/bin/perl
  2.  
  3. require 'cbreak2.pl';
  4.  
  5. &cbreak;
  6.  
  7. $| = 1;
  8.  
  9. print "gimme a char: ";
  10.  
  11. $c = getc;
  12.  
  13. print "$c\n";
  14.  
  15. printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
  16.  
  17. &cooked;
  18.