Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
  }
  close FH;
}

Select or download this

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "&#93;`@$_`?{print"
++ $1"}:{print"- $1"}&&`rm $1`;print"\n";}