ext/Thread/unsync3.tx

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

use Thread;

$| = 1;

srand($$^$^T);

sub whoami {
    my $thread = shift;
    print $thread;
}

sub uppercase {
    my $count = 100;
    while ($count--) {
        my $i = int(rand(1000));
        1 while $i--;
        print "A";
        $i = int(rand(1000));
        1 while $i--;
        whoami("B");
    }
}
        
sub lowercase {
    my $count = 100;
    while ($count--) {
        my $i = int(rand(1000));
        1 while $i--;
        print "x";
        $i = int(rand(1000));
        1 while $i--;
        whoami("y");
    }
}
        
sub numbers {
    my $count = 100;
    while ($count--) {
        my $i = int(rand(1000));
        1 while $i--;
        print 1;
        $i = int(rand(1000));
        1 while $i--;
        whoami(2);
    }
}
        
new Thread \&numbers;
new Thread \&uppercase;
new Thread \&lowercase;
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			$\| = 1;
12
13			srand($$^$^T);
14
15			sub whoami {
16			my $thread = shift;
17			print $thread;
18			}
19
20			sub uppercase {
21			my $count = 100;
22			while ($count--) {
23			my $i = int(rand(1000));
24			1 while $i--;
25			print "A";
26			$i = int(rand(1000));
27			1 while $i--;
28			whoami("B");
29			}
30			}
31
32			sub lowercase {
33			my $count = 100;
34			while ($count--) {
35			my $i = int(rand(1000));
36			1 while $i--;
37			print "x";
38			$i = int(rand(1000));
39			1 while $i--;
40			whoami("y");
41			}
42			}
43
44			sub numbers {
45			my $count = 100;
46			while ($count--) {
47			my $i = int(rand(1000));
48			1 while $i--;
49			print 1;
50			$i = int(rand(1000));
51			1 while $i--;
52			whoami(2);
53			}
54			}
55
56			new Thread \&numbers;
57			new Thread \&uppercase;
58			new Thread \&lowercase;