Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: script hanging at thread start [MCE::Flow alternative]

by 1nickt (Abbot)
on Nov 24, 2020 at 23:05 UTC ( #11124174=note: print w/replies, xml ) Need Help??

in reply to script hanging at thread start

Hi, here's something that does not require threads, powered by the Perl Many-Core Engine:

use strict; use warnings; use MCE::Flow chunk_size => 1; mce_flow sub { chomp; printf("%s processing %s\n", $$, $_); if (/(\w.+\w\d+.+net),(\w+)/) { my $host = $1; my $type = $2; printf "%s connecting to %s\n", $$, $host; } printf "%s finished %s\n", $$, $_; }, [(<DATA>)]; __DATA__,value,value,value,value
perl 597 processing,value 605 processing,value 595 processing,value 600 processing,value 605 connecting to 595 connecting to 600 connecting to 605 finished,value 595 finished,value 600 finished,value 597 connecting to 597 finished,value

Hope this helps!

The way forward always starts with a minimal test.

Replies are listed 'Best First'.
Re^2: script hanging at thread start [MCE::Flow alternative]
by armcinto (Initiate) on Nov 25, 2020 at 13:23 UTC
    Thanks! It will take me some time to learn MCE, but that looks promising.

      Kinda code reuse

      «The Crux of the Biscuit is the Apostrophe»

      perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Re^2: script hanging at thread start [MCE::Flow alternative]
by Anonymous Monk on Dec 03, 2020 at 00:33 UTC
    how does it not use threads?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11124174]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (3)
As of 2021-01-22 01:08 GMT
Find Nodes?
    Voting Booth?