On Tue, Feb 09, 2010 at 11:46:56AM +0000, Nicholas Clark wrote:
> On Mon, Feb 08, 2010 at 09:51:16PM +0000, Tim Bunce wrote:
> > On Mon, Feb 08, 2010 at 02:54:57PM +0000, Nicholas Clark wrote:
>
> > > But joining the filenames isn't *that* useful when you're merging 538
> > > runs.
> > > (See attached screengrab, intentionally shrunk to be less legible)
> >
> > By 'eck that's long!
> >
> > How long does it take to merge them? (And are you using stmts=0?)
>
> real 15m8.563s
> user 14m16.431s
> sys 0m12.409s
>
> And no. The merged file is 836M (uncompressed)
I'd guess you'd see a significant gain in performance by changing
TIME_BLOCK & TIME_LINE handling along these lines...
- Move the output_tag_int(out, NYTP_TAG_TIME_BLOCK... code
out of DB_stmt into a new function.
- Check the return value of the TIME_BLOCK & TIME_LINE handlers.
- If false then call the new function using the (possibly now modified)
cb_args[i] values.
That'll save you half a bazillion $out->write & $out->output_int method
calls. The code would just edit $_[4] and return;
Tim.
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
