|
|
|
| Just another Perl shrine | |
| PerlMonks |
Re: Re: Case-preserving substitutionsby giulienk (Curate) |
| on Jan 18, 2002 at 13:14 UTC ( [id://139775]=note: print w/replies, xml ) | Need Help?? |
|
Update: by the time i posted this, jryan updated his post correctly :)
You also need the "i" modifier in the end, to match case-insensitive way.
$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
In Section
Seekers of Perl Wisdom
|
|
|||||||||||||||||||||||||||