Re^2: An efficient way to parallelize loops

Hi BrowserUK

There are plenty of regexes. Say, at least 30. Each of them made like this:

...
records => [ 'MDR', 'TCBMDR', 'INSS7MDR', 'TCBINSS7MDR' ],
...

for ( my $i = 0; $i < scalar @{$categories{$k}->{tracciati}}; $i++ ) {

                my $TestReStr = join("|", map { "${_}" } @{$categories
+{$k}->{traces}[$i]->{records}} );
                $categories{$k}->{traces}[$i]->{regex} = qr/$TestReStr
+/;

        }
[download]

Note that there are many of 'records' keys.

I would really like to upgrade to a higher version than 5.8.0, but it's not really possible, due to the fact that the sysadmins don't do that on this machines.

Thanks for your help though

Comment on Re^2: An efficient way to parallelize loops Download Code

Replies are listed 'Best First'.
Re^3: An efficient way to parallelize loops by BrowserUk (Patriarch) on Jun 03, 2010 at 22:27 UTC
Note that there are many of 'records' keys.. Sorry, but "many" is not a number. 4? 40? 4e40? I would really like to upgrade to a higher version than 5.8.0, but it's not really possible, due to the fact that the sysadmins don't do that on this machines. If you have your own personal machine, the installing Perl locally is very easy to do. 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. RIP an inspiration; A true Folk's Guy	[reply]
Re^4: An efficient way to parallelize loops by Deus Ex (Scribe) on Jun 04, 2010 at 06:36 UTC
Sorry, you're right: say about 40, which have to be checked against about some millions lines. About installing on my own machine, sure I can. The fact is that it wouldn't be useful, as this is a real work problem I have to solve at my office. Thanks for the help.	[reply]