( LGee | 2010. 05. 14., p – 14:50 )

Ugy tunik, perlben egesz jol lehet benchmarkolni nagy sorozatszamu, tetszoleges matematikai muvelettel, raadasul van 'beepitett' benchmark, csak ez single threaded:

#!/usr/bin/perl

 use Benchmark;

 timethis(100000, '
   for ($x=0; $x<=200; $x++)
   {
     sin($x/($x+2));
   }
 ');

Mindenesetre ez csaknem linearis osszefuggest ad az orajellel:

Perl 5.8.2; 1x 1.0GHz POWER4; AIX 6.1 TL3:

timethis 100000: 33 wallclock secs (32.65 usr +  0.00 sys = 32.65 CPU) @ 3062.79/s (n=100000)

Perl 5.8.8; 1.75x 5.0GHz POWER6 (4x vCPU); AIX 5.3 TL11:

timethis 100000:  8 wallclock secs ( 7.14 usr +  0.00 sys =  7.14 CPU) @ 14005.60/s (n=100000)