Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^3: Test if multiple variables are defined

by Eily (Prior)
on Jun 25, 2013 at 14:24 UTC ( #1040606=note: print w/replies, xml ) Need Help??

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!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040606]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2018-06-23 16:18 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.