blob: d14c908f4eda5835a40edf3b7cc3a9e5e136ac0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
chomp(my $cpu_count = `grep -c -P '^processor\\s+:' /proc/cpuinfo`);
if ($cpu_count == 1) {
print "all: 100% CPU_0: 100% CPU_1: \n";
} else {
print "all: 75% CPU_0: 100% CPU_1: 50%\n";
}
|