Help for this page

Select Code to Download


  1. or download this
    use threads;
use threads::shared;
...
my @threads = map threads->create($_), qw( set_positive set_zero print
+er);
$_->join for @threads;
  2. or download this
    C:\test>1156640
At set_positive: 11
...
At printer 2 0 0
At set_positive: 22
At set_zero: 0