Re^2: split and uninitialized variables

[ikegami]

Your first solution

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

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.

Your second solution

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

erases any '0'. Try:

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

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.

[Roy Johnson]

Actually, the map solution doesn't work, because split doesn't return three elements, so you'd need to make it

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