Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    use strict;
    ...
    Tester, 
    Value, 
    #1001
    
  2. or download this
    Ent, 
    Name, 
    ...
    K530, 
    RUN, 
    Tester,
    
  3. or download this
    $"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
    +-.*)$/;$_=&#91"ps -e -o pid | "," $2 | "," -v "," "]`@$_`?{print"
    ++ $1"}:{print"- $1"}&&`rm $1`;print"\n";}