thread2.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:58 2010 from thread2.pl 2007/01/27 939.

#!/usr/bin/perl
# 20070127 - fix for get_nn only
my $start_time = time();
print "Hello, World...\n";
use threads ();
use threads::shared ();
my $count : shared = 0;
my @threads;
print "Started on " . localtime($start_time) . "...\n";
push @threads, threads->new(sub { for (1..10000) { lock($count); $count++ } }) for 1..10;
$_->join foreach @threads; # wait for all threads to finish 
print "Ended on " . localtime(time()) . "...\n";
print "count = ", get_nn($count), "\n";
sub get_nn { # perl nice number nicenum add commas
   my ($n) = @_;
   if (length($n) > 3) {
      my $mod = length($n) % 3;
      my $ret = (($mod > 0) ? substr( $n, 0, $mod ) : '');
      my $mx = int( length($n) / 3 );
      for (my $i = 0; $i < $mx; $i++ ) {
         if (($mod == 0) && ($i == 0)) {
            $ret .= substr( $n, ($mod+(3*$i)), 3 );
         } else {
            $ret .= ',' . substr( $n, ($mod+(3*$i)), 3 );
         }
      }
      return $ret;
   }
   return $n;
}

index -|- top

checked by tidy  Valid HTML 4.01 Transitional