Thanks for the suggestion. However, I'm really looking for something I can use in a production environment.
On Fri, Oct 23, 2009 at 12:22 PM, Jared Still <jkst...@gmail.com> wrote: > Devel::NYTProf works very well. > http://search.cpan.org/~timb/Devel-NYTProf-2.10/lib/Devel/NYTProf.pm<http://search.cpan.org/%7Etimb/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/%7Etimb/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 >> > >
