ext/Thread/io.tx

   1 BEGIN {
   2     eval { require Config; import Config };
   3     if ($@) {
   4         print "1..0 # Skip: no Config\n";
   5         exit(0);
   6     }
   7 }
   8
   9 use Thread;
  10
  11 sub counter {
  12 $count = 10;
  13 while ($count--) {
  14     sleep 1;
  15     print "ping $count\n";
  16 }
  17 }
  18
  19 sub reader {
  20     my $line;
  21     while ($line = <STDIN>) {
  22         print "reader: $line";
  23     }
  24     print "End of input in reader\n";
  25     return 0;
  26 }
  27
  28 print <<'EOT';
  29 This test starts up a thread to read and echo whatever is typed on
  30 the keyboard/stdin, line by line, while the main thread counts down
  31 to zero. The test stays running until both the main thread has
  32 finished counting down and the I/O thread has seen end-of-file on
  33 the terminal/stdin.
  34 EOT
  35
  36 $r = new Thread \&counter;
  37
  38 &reader;
  39
  40 __END__
  41
  42
  43 $count = 10;
  44 while ($count--) {
  45     sleep 1;
  46     print "ping $count\n";
  47 }