in_array() - Funktion bauen - #58787 (Allgemeines zu Perl)

ptk

2005-10-14 04:49

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

ActivePerl hat doch Threading eingeschaltet, oder? Auf meiner Debian-Kiste mit einem threaded perl ist first() (nur bei der langsamsten Variante) langsamer:

Code: (dl )

~/work/perl-bench/grep-vs-first.pl 1000 1000
Benchmark: running Grep, Util for at least 1 CPU seconds...
      Grep:  1 wallclock secs ( 1.08 usr +  0.00 sys =  1.08 CPU) @ 1382.41/s (n=1493)
      Util:  1 wallclock secs ( 1.10 usr +  0.00 sys =  1.10 CPU) @ 813.64/s (n=895)

first() bei einem nicht-threaded perl verhält sich deutlich besser (FreeBSD mit perl5.8.7, langsamere Maschine):

Code: (dl )

perl5.8.7 ~/work/perl-bench/grep-vs-first.pl 1000 1000
Benchmark: running Grep, Util for at least 1 CPU seconds...
      Grep:  2 wallclock secs ( 1.05 usr +  0.00 sys =  1.05 CPU) @ 1358.70/s (n=1433)
      Util:  1 wallclock secs ( 1.07 usr +  0.01 sys =  1.08 CPU) @ 1876.41/s (n=2023)

Threads sind ja vor perl6 sowieso verboten :-)\n\n