perl/etc/justonce/tmp/stressCPU.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use threads;
   5
   6 my $t = shift;
   7
   8 my %thread;
   9 foreach (1 .. $t) {
  10         $thread{$_} = threads->new(\&test, $_);
  11 }
  12
  13 my %count;
  14 foreach (sort keys %thread) {
  15         $count{$_} = $thread{$_}->join;
  16 }
  17
  18 sub test {
  19         my $in = shift;
  20         my $a;
  21         while ($in) {
  22                 ++$a;
  23                 --$a;
  24         }
  25 }