Re: MCE and DBI

Without a code sample in question am not sure what to suggest other than MCE includes DBI examples (MCE-1.608/examples/sampledb/) which may be helpful.

Comment on Re: MCE and DBI

Replies are listed 'Best First'.
Re^2: MCE and DBI by pmamatsis (Initiate) on May 27, 2015 at 06:24 UTC
Hi @marioroy, thank you so much for your quick reply. I am sorry for not posting any code online but i didn't want for people to think that i just need somebody else to resolve my problem. :) The full source code for my little program is as following: #!/usr/bin/perl -w use strict;<br> use MCE; use DBD::Oracle; use DBI; sub mySub { my $db; $db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWOR +D>") \|\| die($DBI::errstr . "\n"); $db->disconnect; return; } my (@array, $mceObj, $db); $db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWORD>") + \|\| die($DBI::errstr . "\n");<br> ...do some work with the database in order to fill up the @array varia +ble... $db->disconnect;<br> $mceObj = MCE->new(max_workers => 4, input_data => \@array, user_func => \&mySub); $mceObj->run; [download] Best regards, and thank you in advance Panagiotis Mamatsis.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: MCE and DBI
by pmamatsis (Initiate) on May 27, 2015 at 06:24 UTC

#!/usr/bin/perl -w

use strict;<br>

use MCE;
use DBD::Oracle;
use DBI;

sub mySub {
    my $db;
    $db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWOR
+D>") || die($DBI::errstr . "\n");
    $db->disconnect;

    return;
}

my (@array, $mceObj, $db);

$db=DBI->connect("dbi:Oracle:<SERVER_NAME>", "<USERID>", "<PASSWORD>")
+ || die($DBI::errstr . "\n");<br>
...do some work with the database in order to fill up the @array varia
+ble...

$db->disconnect;<br>

$mceObj = MCE->new(max_workers => 4,
                   input_data => \@array,
                   user_func => \&mySub);
$mceObj->run;
[download]

[reply]
[d/l]