This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Next wave of _63 VMS patches
[perl5.git] / ext / Thread / io.t
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 }