On Sun, Dec 02, 2007 at 12:14:58AM -0500, Eric Krause wrote:
>> $ perl -le'
>> $_ = q[11111xxx11xxxx111111xx11x1xxxx];
>> print;
>> s/(1+)/@{[($l=$1)=~y|1|1|]}/g;
>> print;
>> '
>> 11111xxx11xxxx111111xx11x1xxxx
>> 5xxx2xxxx6xx2x1xxxx
>>
>>
>>
>> :-)
>>
>> John
>>
> John,
> That worked perfectly! Thanks!!!
It does, but as John's smiley might suggest, this might not be the most
obvious solution. If you understand it and are happy with it then
great! If not, I suggest you continue to follow up on Tom's
suggestions.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
