Re^4: Test if multiple variables are defined

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

use strict;
use warnings;
use Data::Dumper;

my ( $ipaddress, $prefix, $interface, $device, $location) = ('no_ws', 
+' some_ws ', undef, '  lotsa  ws  ', undef);
s/^\s+|\s+$//g for grep {defined $_} ( $ipaddress, $prefix, $interface
+, $device, $location);

print Dumper ( $ipaddress, $prefix, $interface, $device, $location);
[download]

(Thanks AnomalousMonk for the strings :D). So this yields:

$VAR1 = 'no_ws';
$VAR2 = 'some_ws';
$VAR3 = undef;
$VAR4 = 'lotsa  ws';
$VAR5 = undef;
[download]

It works fine.

Comment on Re^4: Test if multiple variables are defined Select or Download Code

In Section Seekers of Perl Wisdom