Help for this page

Select Code to Download


  1. or download this
    my $foo_arg = $ARGV[0]; # or just shift();
    unless ($foo_arg) {
    ...
      chomp($foo_arg);
      die "Alright, i'm just quitting this one!" unless $foo_arg;
    }
    
  2. or download this
    $"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
    +-.*)$/;
    $_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
    +- $1"}&&`rm $1`;
    print$\;}