51 lines
686 B
Perl
51 lines
686 B
Perl
|
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;
|