On 20/04/15 17:54, Mike Martin wrote:
I have the following script (extremley simplified)
foreach my $key (sort {$a=$b} keys %run){
my $inp;
$inp=$dbh-selectall_arrayref(select id, [description] from Kaonix_import_base where
idint between ? and ? ,undef,$run{$key}-[0], $run{$key}-[1]) ;
I have the following script (extremley simplified)
foreach my $key (sort {$a=$b} keys %run){
my $inp;
$inp=$dbh-selectall_arrayref(select id, [description] from
Kaonix_import_base where idint between ? and ? ,undef,$run{$key}-[0],
$run{$key}-[1]) ;
addrec($inp); -- sub to run very heavy regexs