Fun Perl Benchmark

Try this fun perl benchmark, to test your dual core, SMP or hyperthreaded system.

Before running, make sure you have perl 5.8 with threading support compiled in.

Perl has native ithreads as of perl 5.8.

#!/usr/bin/perl -w
use threads;
use strict;

my $y1=Bench->new();
print "Bencmarking multi-threaded\n";
$y1->benchmark();

print "Benchmarking single-threaded\n";
$y1->ncpu(1);
$y1->benchmark();

package Bench;

sub new ()
{
	my $self = {result => 0,ncpu=>0};
	
	my $cpus =`sysctl hw.ncpu`;
	$cpus =~ /\: (.*)/g;
	$self->{ncpu}=$1;
	
	my $class = shift;
	bless ($self,$class);
	return $self;
}

sub ncpu {
	my ($self,$num) = @_;
	if(defined $num) { $self->{ncpu}=$num; } else { return $self->{ncpu}; }
}

sub benchmark ()
{
	my ($self)=@_;
	my @thr;
	for(my $i=0;$i < $self->{ncpu};$i++)
	{
		print "Starting thread $i\n";
		push @thr, threads->create('benchmark_thread');
	}
	my $total=0;
	foreach my $t (@thr)
	{
		$total=$total+$t->join();
	}
	print "Total number of insane floating point divisions in 10 seconds is ". $total . "\n";	
}

sub benchmark_thread()
{
	my ($y,$x)=0;
	my $time1 = time();
	my ($self)=@_;
	while(1){
	  #$time2 = time();
	  if((time()  - $time1)>= 10){last;}
	  else {
	    $x=1.00/24000000000.001;
	    $y++;
	  }
	}	
	return $y;
}

Name
Email
Website
Body
Verification

July 2008
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

Lets Get Dugg!

Fun Perl Benchmark

Leave a Reply

Calendar

July 2008

Categories

Categories

Archives

Archives

Links

Links

Syndicate

Syndicate

Meta

Meta