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

5:10: Why is this slower than 5.8.8?

by jk2addict (Chaplain)
on Dec 23, 2007 at 00:40 UTC ( #658723=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #test.pl
    use lib '.';
    ...
    }
    
    1;
    
  2. or download this
    Perl 5.8.8 Machine:
    > Benchmark: running set_inherited_class, set_inherited_object for at 
    +least 3 CPU seconds...
    ...
    > set_inherited_class:  3 wallclock secs ( 3.12 usr +  0.01 sys =  3.1
    +3 CPU) @ 335388.09/s (n=1050708)
    > set_inherited_object:  2 wallclock secs ( 3.15 usr +  0.00 sys =  3.
    +15 CPU) @ 412676.76/s (n=1299287)
    > claco@fbsd510 ~ $ 
    
  3. or download this
    package Foo;
    use Scalar::Util qw/blessed reftype/;
    ...
    }
    
    1;
    
  4. or download this
    5.8.8
    > Benchmark: running set_inherited_class, set_inherited_object for at 
    +least 3 CPU seconds...
    ...
    > set_inherited_class:  4 wallclock secs ( 3.09 usr +  0.01 sys =  3.1
    +0 CPU) @ 536733.34/s (n=1664712)
    > set_inherited_object:  4 wallclock secs ( 3.13 usr +  0.00 sys =  3.
    +13 CPU) @ 638055.42/s (n=1998908)
    > claco@fbsd510 ~ $ 
    
  5. or download this
    package Foo;
    use Scalar::Util qw/blessed reftype/;
    ...
    }
    
    1;
    
  6. or download this
    Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
      Platform:
    ...
        /usr/local/lib/perl5/site_perl/5.10.0/i386-freebsd
        /usr/local/lib/perl5/site_perl/5.10.0
        .
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://658723]
Approved by Limbic~Region
Front-paged by Limbic~Region
help
Chatterbox?
[1nickt]: This is not to suggest that Karl should remove his slogan. Just thoughts of mine... Trust me I believe I am very much more radical than most, and if I had a slogan for every gross injustice in my sig, there would be no more bytes!
Discipulus redskins .. well native american..
[1nickt]: So if I was to offer any editorial advice it would be to (1) make it endure time passing (2) make it positive (3) make it about you and your beliefs
[1nickt]: (Disicpulus The new best choice is maybe "First People"
[karlgoethebier]: Discipulus: This is called "Volksverhetzung" in German which means
[karlgoethebier]: incitement of the people and it is prohibited by law
[1nickt]: The best sign I have sign in a protest march was carried by a kid of about 10 years "If you build a wall my generation will tear it down."
[1nickt]: ... sign I have seen ...
[1nickt]: Now that one made me hopeful! First time not angry in a long time when I saw that kid.
[Discipulus]: i propend for removing: why? because we are so few that we must find i minimal common divisor, this is certainly Perl not our (anyway private) thougths. And i say this still wondering because i love a lot freedom of expression. And i say this not for roho

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2017-06-22 12:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (519 votes). Check out past polls.