force perl program to use all CPU capacity using threads

Question

I have a laptop with a CPU Intel Core i3 and I want to create a simple program in Perl to use 100% of CPU capacity. I have read about Threads and search about running them parallel but I can't use 100% of the CPU.

my code:

use strict;
use warnings;
use threads;
use threads::shared;
print "Starting main program\n";

my $t1 = threads->create(\&sub1, 1);
my $t2 = threads->create(\&sub1, 2);
my $t3 = threads->create(\&sub1, 3);
my $t4 = threads->create(\&sub1, 4);

$t1->join();
$t2->join();
$t3->join();
$t4->join();
print "End of main program\n";
sub sub1 {
my $num = 20;

print "started thread $num\n";
sleep $num;
print "done with thread $num\n";
return $num;
}

but after running CPU usage is about 10%.

How do I use 100% of the CPU?

Fred Foo · Accepted Answer · 2014-04-27 19:37:29Z

4

You need to make the threads actually do something. E.g. make them count from 0 to a large number. Sleeping doesn't take CPU time.

answered Apr 27, 2014 at 19:37

Fred Foo

365k80 gold badges765 silver badges852 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

robm · Accepted Answer · 2014-04-27 19:39:09Z

3

You're not using any CPU because the threads are sleeping - which tells the OS basically "I'm not doing anything, so use your resources elsewhere".

try some computation - like a nested loop with divisions and printing the result to /dev/null instead of sleeping.

answered Apr 27, 2014 at 19:39

robm

1,4031 gold badge18 silver badges25 bronze badges

Collectives™ on Stack Overflow

force perl program to use all CPU capacity using threads

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related