Devel::NYTProf works very well.
http://search.cpan.org/~timb/Devel-NYTProf-2.10/lib/Devel/NYTProf.pm
Here's an example of output (the HTML looks better)
507 9103ms 11.4mswhile ( my $hd = $sth->fetchrow_arrayref) {# spent 102ms
making 9 calls to DBI::st::fetchrow_arrayref, avg 11.3ms/call
508
# commented out the eval due the time spent processing to check for
ORA-00001 509
#eval {510
#local $classArgs->{REP_DBH}->{PrintError}=0; 511
#local $classArgs->{REP_DBH}->{RaiseError}=1;512
$repSth->execute(513 8449 17.8s2.10ms $snapPK, $sqlPlanPK,@{$hd}# *spent
14.3s making 8449 calls to DBI::st::fetchrow_arrayref, avg 1.69ms/call #
spent 3.40s making 8449 calls to DBI::st::execute, avg 403µs/call*
514
); 515
#};516
<http://search.cpan.org/~timb/Devel-NYTProf-2.10/lib/Devel/NYTProf.pm>
Jared Still
Certifiable Oracle DBA and Part Time Perl Evangelist
Oracle Blog: http://jkstill.blogspot.com
Home Page: http://jaredstill.com
On Fri, Oct 23, 2009 at 8:46 AM, E R <pc88m...@gmail.com> wrote:
> I'd like to collect the following statistics about DBI usage:
>
> - total number of rows fetched from all queries
> - total wall clock time spent waiting for the database
>
> For the second statistic it would be fine if I just got wall clock
> time "inside" DBI routines (or certain DBI routines).
>
> Is there any easy way to do get these numbers?
>
> Thanks,
>
> ER
>
