Re^2: Threading in a loop

Replies are listed 'Best First'.
Re^3: Threading in a loop by hdb (Monsignor) on Apr 22, 2013 at 14:11 UTC
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"; } }` [download]	[reply] [d/l]
Re^4: Threading in a loop by jerre_111 (Sexton) on Apr 22, 2013 at 14:26 UTC
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!	[reply]
Re^5: Threading in a loop by hdb (Monsignor) on Apr 22, 2013 at 14:31 UTC
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.	[reply]
Re^6: Threading in a loop by jerre_111 (Sexton) on Apr 22, 2013 at 14:37 UTC
Re^7: Threading in a loop by BrowserUk (Patriarch) on Apr 22, 2013 at 16:15 UTC
Re^7: Threading in a loop by CountOrlok (Friar) on Apr 22, 2013 at 14:50 UTC
Re^7: Threading in a loop by Anonymous Monk on Apr 22, 2013 at 15:09 UTC
Re^3: Threading in a loop by CountOrlok (Friar) on Apr 22, 2013 at 14:10 UTC
I think a better way to put it is that you are going to create or spawn a new thread (not restart the thread). You would have to think some more about how to print every time the shared variable changes value.	[reply]