Help for this page

Select Code to Download


  1. or download this
    my $t = '1,2,3,,5,6,,,9,10,,,,14,15,,,,,,,,,,,,,,,';
my $s = join ',' => map { $_ ne '' ? $_ : '0' }
                    split /,/ => $t, 1 + $t =~ y/,//;
  2. or download this
    my $s = join ',' => map $_ || 0,
                    split /,/ => $t, 1 + $t =~ y/,//;