Help for this page

Select Code to Download


  1. or download this
    if ( cookie() ) { return 1; }
    
  2. or download this
    return 1 if cookie();
    
  3. or download this
     if ($multi_in == 1) {
         ...
     }
    
  4. or download this
     if ($multi_in) {
         ...
     }
    
  5. or download this
        use Mail::Mailer;
    
    ...
            or die "Can't open: $!\n";
        print $mailer $body;
        $mailer->close();
    
  6. 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";}