my @words = qw( s so som some somew somewo somewor someword somewords) +;
Just a tip for the lazy...
my $str = 'somewords'; local ($\,$,) = ("\n") x 2; print map {substr $str, 0, $_} 1..length($str); # or print map {$str =~ /(.{$_})/} 1..length($str); # or { my $mem; print map {$mem .= $_} split //, $str; } # etc. (Golf?)
In reply to Re^2: fixed length string
by calin
in thread fixed length string
by shilpam
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |