home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ext / Thread / io.t < prev    next >
Text File  |  1999-07-20  |  672b  |  40 lines
  1. use Thread;
  2.  
  3. sub counter {
  4. $count = 10;
  5. while ($count--) {
  6.     sleep 1;
  7.     print "ping $count\n";
  8. }
  9. }
  10.  
  11. sub reader {
  12.     my $line;
  13.     while ($line = <STDIN>) {
  14.     print "reader: $line";
  15.     }
  16.     print "End of input in reader\n";
  17.     return 0;
  18. }
  19.  
  20. print <<'EOT';
  21. This test starts up a thread to read and echo whatever is typed on
  22. the keyboard/stdin, line by line, while the main thread counts down
  23. to zero. The test stays running until both the main thread has
  24. finished counting down and the I/O thread has seen end-of-file on
  25. the terminal/stdin.
  26. EOT
  27.  
  28. $r = new Thread \&counter;
  29.  
  30. &reader;
  31.  
  32. __END__
  33.  
  34.  
  35. $count = 10;
  36. while ($count--) {
  37.     sleep 1;
  38.     print "ping $count\n";
  39. }
  40.