CPU負荷

OS

(16)

https://communities.vmware.com/message/753930?tstart=0


vim cpubusy.pl

#!/usr/bin/perl

use Time::HiRes 'usleep';

$goal = 2000;
$sleep = 10;
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.000001;
$y = sin($x);
$y = $y + 0.00001;
}
$y = $y + 0.01;
usleep($sleep);
}


perl cpubusy.pl

 

(18)


vim cpubusy.pl

#!/usr/bin/perl

use Time::HiRes 'usleep';

$goal = 2000;
$sleep = 10;
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.000001;
$y = sin($x);
$y = $y + 0.00001;
}
$y = $y + 0.01;
usleep($sleep);
}


perl cpubusy.pl

 


(9)
vim cpubusy.pl
:set paste

#!/usr/bin/perl

use Time::HiRes 'usleep';

$goal = 2000;
$sleep = 10;
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.000001;
$y = sin($x);
$y = $y + 0.00001;
}
$y = $y + 0.01;
usleep($sleep);
}


perl cpubusy.pl

(7)

vim cpubusy.pl
:set paste

#!/usr/bin/perl

use Time::HiRes 'usleep';

$goal = 2000;
$sleep = 10;
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.000001;
$y = sin($x);
$y = $y + 0.00001;
}
$y = $y + 0.01;
usleep($sleep);
}


perl cpubusy.pl

(2012R2)

--1. perl

Strawberry Perlをインストール

cd C:\Users\Administrator\Downloads\strawberry-perl-5.30.0.1-64bit-portable\perl\bin

notepad cpubusy.pl

#!/usr/bin/perl

use Time::HiRes 'usleep';

$goal = 300000;
$sleep = 1000;
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.000001;
$y = sin($x);
$y = $y + 0.00001;
}
$y = $y + 0.01;
usleep($sleep);
}


perl cpubusy.pl

--2. CPUSTRES.EXE

https://qiita.com/84zume/items/df4f1191ff50a5b37889