CPU Stress Test – Perl

Posted: 8th Juni 2012 by Thorben Hemmler in FreeBSD
Tags: , ,

Einfacher Kommandozeilen-Befehl um CPU-Last zu erzeugen:

perl -e 'while (--$ARGV[0] and fork) {}; while () {}' 1

Die Zahl am Ende des Befehls steht für die Anzahl der leichzeitigen Prozesse.

So sieht es dann im „top“ aus:

last pid: 24216; load averages: 0.49, 0.22, 0.94 up 49+03:57:46 08:32:00
36 processes: 2 running, 34 sleeping
CPU: 100% user, 0.0% nice, 0.0% system, 0.0% interrupt, 0.0% idle
Mem: 7112K Active, 7396K Inact, 81M Wired, 296K Cache, 59M Buf, 390M Free
Swap: 3072M Total, 45M Used, 3027M Free, 1% Inuse

PID USERNAME THR PRI NICE SIZE RES STATE TIME WCPU COMMAND
24216 root 1 102 0 11280K 2120K RUN 0:41 100.00% perl5.12.4
1206 mysql 16 38 0 209M 1776K sigwai 30:22 0.00% mysqld
1239 root 1 20 0 11324K 1076K select 2:08 0.00% sendmail
1251 root 1 20 0 9644K 388K nanslp 0:23 0.00% cron
7467 root 1 20 0 45140K 1896K select 0:21 0.00% httpd
891 root 1 20 0 9612K 764K select 0:18 0.00% syslogd
1245 smmsp 1 20 0 11324K 0K pause 0:03 0.00%
7468 root 1 20 0 45140K 604K accept 0:01 0.00% httpd
7474 root 1 20 0 45140K 604K accept 0:01 0.00% httpd
7484 root 1 20 0 45140K 540K accept 0:01 0.00% httpd