Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

How fast is pp/PAR::Packer at packing DateTime::Format::ISO8601 for you?

by Anonymous Monk
on Oct 18, 2012 at 12:02 UTC ( [id://999712]=perlquestion: print w/replies, xml ) Need Help??

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

If you have pp/PAR::Packer, how long does this take?

perl -le " print ~~gmtime " pp -e " use strict; use warnings; use Getopt::Long; use DateTime::Form +at::ISO8601; print qq{$_\n} for %INC; " perl -le " print ~~gmtime "

On my old laptop it took 32min at 98% cpu usage

It doesn't seem to get faster (on second run) even after adding  -cd pp-scandeps-cachefile which has about 2084 files

I thought, hey, the cache does md5summing, all that md5summing is taking extra time, so I produced this patch

But that doesn't seem to speed anything up (I killed it after 9min)

Ideas?

Replies are listed 'Best First'.
Re: How fast is pp/PAR::Packer at packing DateTime::Format::ISO8601 for you?
by marto (Cardinal) on Oct 18, 2012 at 12:10 UTC
    C:\>perl -le " print ~~gmtime " Thu Oct 18 12:06:43 2012 C:\>pp -e " use strict; use warnings; use Getopt::Long; use DateTime:: +Format::IS O8601; print qq{$_\n} for %INC; " C:\>perl -le " print ~~gmtime " Thu Oct 18 12:07:42 2012

    My laptop setup is Intel Core2Duo @2.1GHz, 1GB RAM, Windows XP SP3, Strawberry Perl 5.12.3.

    Update: I didn't notice that Radia was running, which usually slows down the laptop a fair bit. I'll retest once it's done.

    Updated: results from running the above after Radia stops.

    C:\>perl -le " print ~~gmtime " Thu Oct 18 12:43:16 2012 C:\>pp -e " use strict; use warnings; use Getopt::Long; use DateTime:: +Format::IS O8601; print qq{$_\n} for %INC; " C:\>perl -le " print ~~gmtime " Thu Oct 18 12:43:39 2012
Re: How fast is pp/PAR::Packer at packing DateTime::Format::ISO8601 for you?
by daxim (Curate) on Oct 18, 2012 at 12:43 UTC
    $ time pp -e " use strict; use warnings; use Getopt::Long; use DateTime::Format::ISO8601; print qq{$_\n} for %INC; "
    
    real    0m11.527s
    user    0m6.153s
    sys     0m0.900s
    
    I suspect something else is slowing down file access on your system. Use Sysinternals Filemon or similar to detect this.

      I suspect something else is slowing down file access on your system. Use Sysinternals Filemon or similar to detect this.

      I have, it doesn't appear to :) Though I will schedule some downtime later to run chkdsk etc

        The program runs in ~1 second (perl -e ... ) like you'd expect, its the packing that takes forever -- if something else was slowing things down, the running would take forever also

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://999712]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2024-03-29 01:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found