Select Code to Download

> perldoc -f read

     read FILEHANDLE,SCALAR,LENGTH
             Attempts to read LENGTH bytes of data into variable
...
             beginning.  The call is actually implemented in
             terms of stdio's fread(3) call.  To get a true
             read(2) system call, see "sysread".

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