Help for this page

Select Code to Download


  1. or download this
    sub trim2 {
        return trim2 $_ if not @_;
    ...
            if defined wantarray;
        for ( @_ ) { s/^\s+//, s/\s+$// }
    }
    
  2. or download this
    sub trim3a {
        return trim3a $_ if not @_;
    ...
    
        @c ? @c : $c ? $c : ();
    }