[CentOS-devel] slow Perl on CentOS 5

[William L. Maltby]

On Sun, 2008-08-31 at 15:09 +0200, Fabian Arrotin wrote:
> <snip>


> I've just updated a tmp DomU machine :
> Without the updated perl :
> time /tmp/perlbug.pl
> ..................................................
> real    0m21.473s
> user    0m21.345s
> sys     0m0.044s
> 
> with perl.x86_64 4:5.8.8-10.el5_2.3.centos from Testing :
> time /tmp/perlbug.pl
> ..................................................
> real    0m0.214s
> user    0m0.188s
> sys     0m0.024s
> 
> The test was run several times with approximatively the same results 
> (and after a reboot too)
> The perl script used was the one someone posted on the CentOS list 
> recently :
> 
> ------------- bug test ----------
> #!/usr/bin/perl
> use overload q(<) => sub {};
> my %h;
> for (my $i=0; $i<50000; $i++) {
> $h{$i} = bless [ ] => 'main';
> print STDERR '.' if $i % 1000 == 0;
> }
> ----------------- end snip ------------
> 
> I'll test on other machines but i admit i'm not a Perl user myself nor 
> have perl scripts that i use for day-to-day operations

I ran that on mine and have similar good results. I'd forgotten about
the test script someone posted.

On an AMD Athlon XP3200+ (2200.080 MHz, 4403.11 BogoMIPS) I got similar
to this.

real    0m0.286s
user    0m0.234s
sys     0m0.018s

Thanks.

> 

-- 
Bill