Re: Threading Equivalent to this Parallel::ForkManager Example

This would seem to be an equivalent:

#!/usr/bin/env perl

use strict;
use warnings;
use threads;
[download]

while (<DATA>) { threads->create(sub { print 'Thread ', threads->tid, ': ', $_ })-> +join; }
[download]

Update: Apparently not equivalent - see BrowserUk's comments below.

__DATA__
list.txt line 1
list.txt line 2
list.txt line 3
[download]

Output:

Thread 1: list.txt line 1
Thread 2: list.txt line 2
Thread 3: list.txt line 3
[download]

The "Perl Threads Tutorial" would probably be a good place to start if you want to learn more.

-- Ken

Comment on Re: Threading Equivalent to this Parallel::ForkManager Example Select or Download Code

Replies are listed 'Best First'.
Re^2: Threading Equivalent to this Parallel::ForkManager Example by BrowserUk (Patriarch) on Apr 02, 2014 at 08:00 UTC
This would seem to be an equivalent: Not so. It is fatally flawed. Your code is directly equivalent to: `#!/usr/bin/env perl use strict; use warnings; use threads; my $n = 0; while (<DATA>) { print 'Thread ', ++$n, ': ', $_; }` [download] Ie. It exhibits no parallelism whatsoever. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^3: Threading Equivalent to this Parallel::ForkManager Example by kcott (Archbishop) on Apr 02, 2014 at 08:13 UTC
Thanks for picking that up. I've updated my post. -- Ken	[reply]