Where can I find cpubusy.pl?

[Subatomic]

I am looking the the Perl version of CPU busy to run on Linux guests.

Does anyone know where I can get a copy?

Thanks in advance

[Ken_Cline]

Google is your friend: http://my-speakeasy.com/vmware/

[esiebert7625]

The link for that file does not work though. I found that also but could not download the file....

[Ken_Cline]

Ah yes...the infamous "500 Internal Server Error"

[FredPeterson]

You know, its just as easy to do this:

cpubusy.vbs

\----

---

Dim i

For i = 0 to 1000000000

Next

\----

---

Its the script I wrote when I wanted to see all four core's in a dual dual core windows server churn away in task manager. The real script spits out timings of when it started and stopped etc.

I got another that copy's a file from the network and another that creates a file of x size and fills it with random data writing in chunks you specify. I call it my little VMPerf - but I've started using it on physicals as well, just to get a comparison.

[esiebert7625]

But what if you do not have a Windows VM to run it on....

[admin · Accepted solution]

Here you go, I just knocked this up based on the Windows VBS script, does the same thing but in Perl.

#!/usr/bin/perl

$goal = 2181818;

while (TRUE) {

for ($i=0; $i<=$goal; $i++) {

$x = 0.000001;

$y = sin($x);

$y = $y + 0.00001;

}

next;

$y = $y + 0.01;

}

[FredPeterson]

But what if you do not have a Windows VM to run it

on....

Well thats just asking to much, geez!

[NavyChief]

#!/usr/bin/perl

# cpubusy.pl

if ($^O =~ /Win/) {
        $goal = 2700000;
} else {
        $goal = 3000000;
}

while (1) {
        $before = time();
        for ($i = 0; $i < $goal; $i ++) {
                $x = 0.000001;
                $y = sin($x);
                $y = $y + 0.00001;
        }
        $y += 0.01;
        print "I did three million sines in ", time() - $before, " seconds!\n";
}