Re^7: latency and round-trips

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];
}
[download]

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


No such thing as a small change
	PerlMonks