git.sur5r.net Git - i3/i3status/blob - testcases/022-cpu-usage-tenth-cpu/expected_output.pl

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