This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Make many-reader mutexes more resilient
[perl5.git] / h2pl / tcbreak2
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;
Unnamed repository; edit this file 'description' to name the repository.