Commit | Line | Data |
d9bb3666 |
1 | use Thread; |
2 | |
3 | $| = 1; |
4 | |
5 | srand($$^$^T); |
6 | |
7 | sub whoami { |
8 | my $thread = shift; |
9 | print $thread; |
10 | } |
11 | |
12 | sub uppercase { |
13 | my $count = 100; |
14 | while ($count--) { |
15 | my $i = int(rand(1000)); |
16 | 1 while $i--; |
17 | print "A"; |
18 | $i = int(rand(1000)); |
19 | 1 while $i--; |
20 | whoami("B"); |
21 | } |
22 | } |
23 | |
24 | sub lowercase { |
25 | my $count = 100; |
26 | while ($count--) { |
27 | my $i = int(rand(1000)); |
28 | 1 while $i--; |
29 | print "x"; |
30 | $i = int(rand(1000)); |
31 | 1 while $i--; |
32 | whoami("y"); |
33 | } |
34 | } |
35 | |
36 | sub numbers { |
37 | my $count = 100; |
38 | while ($count--) { |
39 | my $i = int(rand(1000)); |
40 | 1 while $i--; |
41 | print 1; |
42 | $i = int(rand(1000)); |
43 | 1 while $i--; |
44 | whoami(2); |
45 | } |
46 | } |
47 | |
48 | new Thread \&numbers; |
49 | new Thread \&uppercase; |
50 | new Thread \&lowercase; |