Re: getting 0 to print

In addition to other changes, you may want to write trim like this:

sub trim { 
    my @out = wantarray ? @_ : shift;

    return "" unless @out;
    for (@out) {
        $_ = "" => next unless defined;
        tr/|\n\r//d;
        s/^\s+|\s+$//g;
    } 
    return @out; 
}
[download]

— Arien

Comment on Re: getting 0 to print Download Code

Replies are listed 'Best First'.
Re: Re: getting 0 to print by rbc (Curate) on Jan 13, 2003 at 23:32 UTC
Oooh! that work too! thanks! I have never seen this ... `$_ = "" => next unless defined;` [download] ... before. Could you explain how that works. It would be most enlightening.	[reply] [d/l]
Re: Re: Re: getting 0 to print by Arien (Pilgrim) on Jan 14, 2003 at 00:08 UTC
I have never seen this ... `$_ = "" => next unless defined;` ... before. Could you explain how that works. I'm not sure what part puzzles you, so... `defined` implicitly refers to `$_`. `unless (...) { ... }` can be written as `... unless ...` if the block is just a simple statement. `... => ...` is another way to write `... , ...` (apart from the fact that `=>` will autoquote any word left of it). In scalar context (ie the way used here) the comma (in either notation) evaluates its both arguments from left to right (and returns the value value of the last argument evaluated). (You can find all details in perlsyn and perlop.) In other words, that line is just one of the many variations of writing: `unless (defined $_) { $_ = ""; next }` — Arien	[reply] [d/l] [select]