Re^3: Threading in a loop

[hdb]

Your program finishes too fast. Try this:

use threads;
use threads::shared;
my $test :shared;
$test = 0;
testing_thread();

sub testing_thread {
        my $thr1 = threads->create(\&progress_count, $test);
        while ($test <= 1000000) {
                $test += 1;
        }
        $thr1->join();
}

sub progress_count {
        while( $test < 1000000 ) {
                print $test, " \n";
        }
}

[jerre_111]

I'm sorry to say, but your code is not quite right.

When you do it like that, the printing and counting of the variable won't run parallel. Resulting in seeing only fragments of the counting

But thanks for the effort!

[hdb]

Is that not expected? When you asynchronously increment the variable and print the variable it will not be in line. There is nothing in the code to synchronize the two.

[jerre_111]

When you execute the following code you get a synchronised counting/printing action

use threads;
use threads::shared;
my $test :shared;
$test = 0;
testing_thread();

sub testing_thread {

while ($test <= 100) {
my $thr1 = threads->create(\&progress_count, $test);
$test += 1;
$thr1->join();
}

}

sub progress_count {
    print $test, " \n";

}