Attached is a small benchmark script. The test platform is:
CPU: x86 1994 MHz
RAM: 500 MB
OS : Win2k
I redirected the output to circumvent the slow console:
set ADO_DSN=Provider=MSDAORA;Data Source=prod;User ID=***;Password=***
perl Benchmark.pl Benchmark.out
The output looks like:
On Tue, Mar 22, 2005 at 10:41:19AM +0100, Steffen Goeldner wrote:
Attached is a small benchmark script. The test platform is:
The output looks like:
47638 rows
Finally, let's use the new subroutine approach:
my $rows = sub {
return if $rs-{EOF};
my $row = [ map {
On Tue, Feb 22, 2005 at 09:12:00AM -0800, David Wheeler wrote:
That's great. You've got it to the point were I can't ignore it any
more :-) I'll apply it and finish it up.
Woo! That's what I was looking for! Time well spent, then. :-) I'll
have to look at the diff after you've done it to
On 23 Mar, Tim Bunce wrote:
What's missing, roughly in order of importance...
0. Documentation.
1. callbacks are only passed the handle, not the other method args.
2. No support for post-call callbacks via
$dbh-{Callbacks}-{prepare} = [ \pre, \post ]
3. The method name isn't
YES! :-)
On Mar 22, 2005, at 4:21 PM, Tim Bunce wrote:
It ended up a little different in that I don't use an extra element
in the struct but just hv_fetch Callbacks when needed.
So it's more like the way Profile is handled. I should have pointed
you in that direction rather than to the older
On Mar 22, 2005, at 4:46 PM, David Wheeler wrote:
Anyway, it's in now, with support for callbacks on *every* method
and *every* handle. So this does what you'd expect:
$dbh-{Callbacks}-{ping} = sub { print Called ping!\n; return;
};
$dbh-ping;
Nice.
And they work! :-)