Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: Large table query code help!

by Anonymous Monk
on Feb 02, 2012 at 20:48 UTC ( #951530=note: print w/replies, xml ) Need Help??

in reply to Re: Large table query code help!
in thread Large table query code help!

I see your point and as far as this code sample is, the issue here is that this line:
for( my $i = 0; $i < @data; $i += 50 ) { ...
should end after the last foreach loop, no db calls or whatever else should matter since you mentioned that all has been working, or:
#!/usr/bin/perl -w use strict; use CGI qw/:standard/; use POSIX qw(strftime); my $db = "test"; my $sql_dbh = lib::Db->connect( 'local' ); # get a list of account numbers my @data = map { $_->{ ACCOUNT } } @{ $sql_dbh->exec( qq|select accoun +t from my_table where type='A'|) }; if (!@data) { die "bye now";exit; } my $numb = @data; print "\n Numbers of Accounts: $numb\n"; # Check 50 records at time my $allaccounts; for( my $i = 0; $i < @data; $i += 50 ) { my @files = @data[$i .. $i+49]; #my $all = join(', ', @files); #print "\n $i - $all\n"; #test data #push(@files, "11223","5776","0001","87100"); my $placeholders = join ',', ('?') x @files; $allaccounts = $sql_dbh->exec( "select * from othertable where acc i +n ($placeholders)", @files ); #} # not here my $cc=0; foreach (@$allaccounts) { $cc++; # print report my $found = qq|$_->{ name }$_->{ number }|; print "\n $cc - Reporting: $found\n"; } } # end here

Enjoy it !!!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://951530]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2018-04-25 00:02 GMT
Find Nodes?
    Voting Booth?