[SP-pm] RedHat Perl Sucks, e o CentOS vaii junto

Lucas Mateus lucasmateus.oliveira at gmail.com
Thu Aug 28 08:33:40 PDT 2008


Otavio, justamente por isso que mandei os LoadAverege das maquinas, afim  
de mostrar que elas etão praticamente "a toa", carga quase 0.

Em Thu, 28 Aug 2008 12:25:37 -0300, Otávio Fernandes <otaviof em gmail.com>  
escreveu:

> 2008/8/28 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
>> Em Wed, 27 Aug 2008 19:07:41 -0300, Luis Motta Campos
>> <luismottacampos em yahoo.co.uk> escreveu:
>>
<cortado>
>>
>>
>> Fiz um teste com o seguinte codigo:
>>
>>
>> #!/usr/bin/perl
>> use overload q(<) => sub {};
>> use Time::HiRes qw/gettimeofday tv_interval/;
>>
>> my $t1 = [gettimeofday];
>>
>> my %h;
>> for (my $i=0; $i<50000; $i++) {
>>    $h{$i} = bless [ ] => 'main';
>>    print STDERR '.' if $i % 1000 == 0;
>> }
>>
>> print $/.' TEMPO: '.tv_interval($t1, [gettimeofday]).'s'.$/;
>>
>>
>>
>> RESULTADO:
>>
>> 1) RH5 64 bits, Proc 4 nucleos, 4GB Ram, LoadAvarege 0.02 (momento do  
>> teste)
>>
>> ..................................................
>>  TEMPO:11.528971s
>>
>>
>> 2) Slackware 12 32bits, Proc 2 nucleos, 2GB Ram, LoadAvarege 0.30  
>> (momento
>> do teste)
>> ..................................................
>>  TEMPO: 0.168757s
>>
>>
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>
> Lucas,
>
> Fica claro a diferença de desempenho, mas a forma como foi medido não
> deixa claro o suficiente se o ambiente (leia-se, as outras aplicações)
> estão atrapalhando este resultado. Minha sugestão é que você use o
> módulo Benchmark
> (http://search.cpan.org/~tty/kurila-1.13_0/lib/Benchmark.pm) e mande
> os resultados novamente.
>
> um abraço,
>




More information about the SaoPaulo-pm mailing list