http://www.perlmonks.org?node_id=1040606


in reply to Re^2: Test if multiple variables are defined
in thread Test if multiple variables are defined

Here is the longer version of the same code:

for ( $ipaddress, $prefix, $interface, $device, $location, $comment ) { defined and s/^\s+|\s+$//g; # or defined ? s/^\s+|\s+$//g : 1; It does the same thing # or even if (defined) { s/^\s+|\s+$//g } ## Edit : and there is # s/^\s+|\s+$//g if defined; ## That one is quite nice. ## Let's just say there's more than one way to do it. }
So yeah, the instructions inside the block are run on each element, and not the array as a whole.

If you have to ask though, I'd advise you to go for the long version because it will run just as fast, it's just another way of writing the same thing. Here is another way to do it, which I find easy to read thanks to the next keyword.

STRING: for( $ipaddress, $prefix, $interface, $device, $location, $com +ment ) { next STRING unless defined; # We skip any element that is not define +d s/^\s+|\s+$//g; }

Replies are listed 'Best First'.
Re^4: Test if multiple variables are defined
by stroke (Acolyte) on Jun 25, 2013 at 14:51 UTC

    Thanks, that's what I was trying to say - run it on each element, not the array as a whole. Words failed me at the time though. And a simple solution - I went for:

    for ( $ipaddress, $prefix, $interface, $device, $location, $comment ) +{ s/^\s+|\s+$//g if defined; }

    Thanks for your wisdom!