Help for this page

Select Code to Download


  1. or download this
    sysopen (FILE,$filename,O_RDONLY) or die "Error! $!\n";
my (@slurp) = grep !/fubar/,<FILE>;
close FILE;
  2. or download this
    echo 'fubar\nfoo' | perl -e '@stuff=grep \!/fubar/, <STDIN>;print@stuf
+f;'
  3. or download this
    foo
  4. 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";}