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";}