Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^7: latency and round-trips

by techcode (Hermit)
on Dec 18, 2008 at 12:35 UTC ( #731241=note: print w/ replies, xml ) Need Help??


in reply to Re^6: latency and round-trips
in thread DBI Queries take half an hour

While I do lack knowledge with Oracle and obviously your system/implementation - I don't get it why don't you just do something like:

sub get_all_data{ return $sth2->fetchall_arrayref(); } $p = Project->new_project($id); $cursor = $p->get_all_data(); $| = 1; # to turn on autoflush (turn off print/output cashing) foreach my $row (@$cursor){ print OUTPUT do{ local $" = qq{\t}; qq{$row->[1]\$\$\$\$\n}; } if defined $row->[1]; }

The part inside do{} is something I see for the first time, so I'm not sure if you are trying to output a TAB separated file? In particular I'm not sure what does "qq{$row->[1]\$\$\$\$\n};" do?

Also speaking in general - mixing OOP (Project.pm ...etc) and non-OOP (global $sth2 value) is usually not a good thing. IMHO you should keep consistency - pick one and stick with it.


Have you tried freelancing/outsourcing? Check out Scriptlance - I work there since 2003. For more info about Scriptlance and freelancing in general check out my home node.


Comment on Re^7: latency and round-trips
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2014-09-01 19:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (17 votes), past polls