Re: splitting a word

Try considering substr() instead of split. Example: my $firstinit = substr($filename, 0 ,1);


----------------------------------------------------------
#!/usr/bin/perl
@==qw/p e r l m o n k s/;$|*=1;@;=qw/8 15 7 9 -1 7 7 2 0/;
foreach$-(@=){for(++$|..$;[$:++]){$-++}$..=$-}$.=~s/m/l/g;
$*=$;[4]+1;for($;[9]..$;[0]/2){$,.=substr($.,$*++,1);$*++;
}print$,;#http://www.perlmonks.org/index.pl?node_id=98506;

Comment on Re: splitting a word

Replies are listed 'Best First'.
Re: Re: splitting a word by tradez (Pilgrim) on Jan 16, 2002 at 03:37 UTC
substr would definately work, don't get me wrong, but just because this guy seems to be doing things in a regex sort of manner already, and it just so happens that I love regexs very much, I thought I would throw this little tidbet out there. `$fname = 'thomas'; $fname =~ /^(\w{1})/;` [download] $1 is now equal to "t" hence the answer he was looking for. TrAdEz Awwww the power of perlre	[reply] [d/l]