Help for this page

Select Code to Download


  1. or download this
    > perl -wl
my ($x,$y,$z) = ('','','');
...
print "$x $y $z";
__END__
a  b
  2. or download this
    perl -wl
my ($x, $y, $z) = map defined $_ ? $_ : '', (split(',', 'a,0,b'))[0..2
+];
print "$x $y $z";
__END__
a 0 b