Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 ( #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?

Comment on How fast is pp/PAR::Packer at packing DateTime::Format::ISO8601 for you?
Select or Download Code
Re: How fast is pp/PAR::Packer at packing DateTime::Format::ISO8601 for you?
by marto (Bishop) 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 (Chaplain) 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
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? | Other CB clients
Other Users?
Others studying the Monastery: (13)
As of 2015-07-03 11:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (51 votes), past polls