[SP-pm] RedHat Perl Sucks, e o CentOS vaii junto
MrBiTS
mrbits at linuxmasters.info
Thu Aug 28 12:43:51 PDT 2008
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
> Como como eu havia pensado a diferença do Time::HiRes com o Benchmark
> nao foi muito diferente, mesmo pq ambos os testes forão feitos com a
> máquina dedicada para o teste.
O que mais me assusta não é isso. À partir do código abaixo:
<code>
#!/usr/bin/perl
use overload q(<) => sub {};
use Benchmark qw(timethese);
sub test {
$h;
$h = bless [ ] => 'main';
}
timethese(1E6, { 'tempo' => \&test });
</code>
temos o seguinte resultado.
P IV 3.2 GHZ, 2 GB RAM, Debian Sarge 32 Bits
============================================
mrbits at extranet:~$ perl teste.pl
Benchmark: timing 1000000 iterations of tempo...
tempo: 2 wallclock secs ( 1.01 usr + 0.00 sys = 1.01 CPU) @
990099.01/s (n=1000000)
Xeon 1.60GHz Dual Core, 4 GB RAM
================================
mrbits at ads1 ~$ perl teste.pl
Benchmark: timing 1000000 iterations of tempo...
tempo: 0 wallclock secs ( 1.10 usr + 0.00 sys = 1.10 CPU) @
909090.91/s (n=1000000)
- --
Um abraço
.0. MrBiTs - mrbits at linuxmasters.info
..0 GnuPG -
http://keys.cardboard.net:11371/pks/lookup?op=get&search=0xAC37715A6DD1F186
000 http://www.mrbits.com.br
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iEYEARECAAYFAki2//cACgkQrDdxWm3R8YYggACdEBbWTG5Wab3OqdzNTfpZnZUE
3toAmwabtEr5hgHg7HtnH8ubQCdXGM9P
=QWWa
-----END PGP SIGNATURE-----
More information about the SaoPaulo-pm
mailing list