Re^2: split and uninitialized variables

in reply to Re: split and uninitialized variables
in thread split and uninitialized variables

Your first solution

my ($x, $y, $z) = ('', '', ''); ($x, $y, $z) = split(',', $_);
[download]

won't work. Any values assigned in the first line will get overwritten in the second line:

$_ = 'a,b';
my ($x, $y, $z) = ('', '', '');
($x, $y, $z) = split(',', $_);
print(defined($z)?'defined':'undefined', "\n");
# prints undefined.
[download]

Your second solution

my ($x, $y, $z) = map { $_ || '' } split(',', $_);

erases any '0'. Try:

my ($x, $y, $z) = map { defined($_)?$_:'' } (split(',', $_))[0..2];
[download]

Personally, I'd go with the simple my ($x, $y, $z) = (split(',', $_), ('') x 3); solution mentioned elsewhere.

Update: Added missing [0..2] as pointed out by Roy Johnson. Thanks.

In Section Seekers of Perl Wisdom