bin/hog

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 my $psu=system($ENV{"HOME"}."/bin/psu")==0;
   5 local *F;
   6 open F,"/usr/bin/top -b -n2 -d1|" or die;
   7 my $top=0;
   8 while (<F>) {
   9   /^top / && $top++;
  10   /^$/ && $top++;
  11   next if $top!=5;
  12   /^(?:\s*\S+){8}\s*(\S+)\s*\S+\s*([^:\s]*):/ or next;
  13   next if $1<90;          # CPU %
  14   next if $2<($psu?30:1); # minutes it has run
  15   tr/'//d;
  16   system "DISPLAY=:0 xmessage -timeout 30 -default okay -center '$_' 2>/dev/null";
  17   exit 0;
  18 }
  19 close F or die;