Help for this page
my @col = split /;/; push @col, '' for @col .. 2; print join ';', @col;
my $len = 3; print join ';', (split(/;/), ('') x $len)[0 .. $len-1];
my %foo = map { (split /:/, $_, 2)[0, 1] } # Implicit "default" undef. ... 'foo' => 'bar', 'zip' => 'zap:zoom' };
my %foo = map { split /:/ } ...;
www.com | www.net | www.org
No recent polls found