13 lines
252 B
Perl
13 lines
252 B
Perl
|
#!/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: 00% CPU_0: 00% CPU_1: \n";
|
||
|
|
} else {
|
||
|
|
print "all: 50% CPU_0: 00% CPU_1: 100%\n";
|
||
|
|
}
|