ext/Thread/io.tx

BEGIN {
    eval { require Config; import Config };
    if ($@) {
        print "1..0 # Skip: no Config\n";
        exit(0);
    }
}

use Thread;

sub counter {
$count = 10;
while ($count--) {
    sleep 1;
    print "ping $count\n";
}
}

sub reader {
    my $line;
    while ($line = <STDIN>) {
        print "reader: $line";
    }
    print "End of input in reader\n";
    return 0;
}

print <<'EOT';
This test starts up a thread to read and echo whatever is typed on
the keyboard/stdin, line by line, while the main thread counts down
to zero. The test stays running until both the main thread has
finished counting down and the I/O thread has seen end-of-file on
the terminal/stdin.
EOT

$r = new Thread \&counter;

&reader;

__END__


$count = 10;
while ($count--) {
    sleep 1;
    print "ping $count\n";
}
Revision:	1.1
Committed:	Thu Jun 30 14:27:05 2005 UTC (21 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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			}