#!C:\Perl\bin\perl -w $|++; print "Content-type: text/html\n\n"; # use strict; use warnings; use Time::HiRes; use threads; use threads::shared; my ($doc_top, $doc_middle, $doc_bottom); $doc_top = "\n"; $doc_top .= "\n"; $doc_top .= "\n\n"; $doc_top .= "\n"; $doc_top .= "\n\n"; $doc_top .= "\n"; $doc_top .= "\t\n"; $doc_top .= "\t\t\n"; $doc_bottom .= "\t\n"; $doc_bottom .= "

\n"; $doc_top .= "\t\t\t\n"; #$doc_top .= "\t\t\t\t\n"; $doc_middle =''; #$doc_bottom .= "\t\t\t\t\n"; $doc_bottom .= "\t\t\t

\n"; $doc_bottom .= "\t\t

\n\n"; #$doc_bottom .= "\n"; #$doc_bottom .= "\n"; for ($j = 0; $j <= 22; $j++) { $doc_middle .= "\t\t\t\t\n"; for ($i = 0; $i <= 2; $i++) { $doc_middle .= "\t\t\t\t\t \n"; } $doc_middle .= "\t\t\t\t\n"; } print $doc_top.$doc_middle.$doc_bottom; our (@rv, @pauses, @letters) : shared; #@rv[0,1,2, 3,4,5, 6, 7, 8] = (2, 5, 5,
@rv[0,1,2, 3,4,5, 6, 7, 8] = (int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2, int(rand(4))+2); #@pauses[0,1,2, 3,4,5, 6, 7, 8] = (0.325543212890625, 0.3333251953125, 0.345562744140625,
@pauses[0,1,2, 3,4,5, 6, 7, 8] = ((rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3, (rand(1))+.3); @letters[0,1,2, 3,4,5, 6,7,8] = ('a','b','c', 'd','e','f', 'g','h','i'); my $cur_right_value; my $cur_pause; my $cur_letter; for($f = 0; $f <= 2; $f++) { $cur_right_value = @rv[$f];# print $cur_right_value; print "
\n"; $cur_pause = @pauses[$f]; # print $cur_pause; print "
\n"; $cur_letter = @letters[$f];# print $cur_letter; print "
\n"; print "for current letter $cur_letter repetitions ".($cur_right_value+1)." via pause $cur_pause sec
\n"; $thr = threads->new(sub { my $cur_var = 0; for($cur_var = $cur_var; $cur_var <= $cur_right_value; $cur_var++) { print "\n"; if(Time::HiRes::sleep($cur_pause)) { lock(@rv); lock(@pauses); lock(@letters); } if($cur_var == $cur_right_value) { # print "\$f = $f
\n"; $cur_right_value = @rv[0]+$cur_var; $cur_pause = @pauses[0]; $cur_letter = @letters[0]; shift @rv; # print @rv; print "
\n"; shift @pauses; # print @pauses; print "
\n"; shift @letters;# print @letters; print "
\n"; } } }); } shift @rv; shift @rv; shift @rv; # print @rv; print "
\n"; shift @pauses; shift @pauses; shift @pauses; # print @pauses; print "
\n"; shift @letters; shift @letters; shift @letters;# print @letters; print "
\n"; $thr->join; print "@letters
\n"; print "
\n"; print "\n"; print "\n"; ##

##

#!C:\Perl\bin\perl -w

print "Content-type: text/html\n\n";

use warnings;
use Time::HiRes;
use threads;
use threads::shared;

$doc_top = "\n";
$doc_top .= "\n";
$doc_top .= "\n\n";
$doc_top .= "\n";
$doc_top .= "\n\n";
$doc_top .= "\n";
$doc_top .= "\t\n";
$doc_top .= "\t\t\n";
$doc_bottom .= "\t\n";
$doc_bottom .= "\n";

$doc_middle ='';

$doc_bottom .= "\t\t\n\n";

for ($j = 0; $j <= 32; $j++) {
  $doc_middle .= "\t\t\t\n";
  for ($i = 0; $i <= 2; $i++) {
    $doc_middle .= "\t\t\t\t \n";
  }
  $doc_middle .= "\t\t\t\n";
}
print $doc_top.$doc_middle.$doc_bottom;

print "\n";

$|++;

my $threads = 3;
my $count : shared = $threads;

my @threads;
my @params = 
(
{id => '0', up => 8,  to => 0.5, char => 'a'},
{id => '1', up => 5,  to => 0.2, char => 'b'},
{id => '2', up => 11, to => 0.3, char => 'c'},
{id => '3', up => 6,  to => 1.1, char => 'd'},
{id => '4', up => 2,  to => 0.5, char => 'e'},
{id => '5', up => 9,  to => 0.6, char => 'f'},
{id => '6', up => 3,  to => 0.7, char => 'g'},
{id => '7', up => 5,  to => 0.8, char => 'h'},
{id => '8', up => 6,  to => 0.9, char => 'i'}
);

sub fun {
  my $arg = shift;
  $count -= 1;
  my $cur_var = 0;
  for($cur_var = $cur_var; $cur_var <= $arg->{up}; $cur_var++) {
    redo if $count;
    print "\n";
    Time::HiRes::sleep($arg->{to});
  }
}

foreach(1..$threads) {
  push @threads, threads->new(\&fun, shift @params);
}

foreach(1..$threads) {
  my $thid = shift @threads;
  $thid->join;
}

print "\n";
print "\n";