On Tue, Oct 30, 2001 at 03:22:33PM -0800, John W. Krahn wrote:
> $ perl
> -le'$_="DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN";tr/A-Za-z//s;print'
> DESCRIPTION
Ah, that was a good try, but what happens when you have:
SSSSEEEETTTTTTTTIIIINNNNGGGG
A better solution would be:
s/(.)\1{3}/$1/g;
As in:
perl -wle '$_ = shift; s/(.)\1{3}/$1/g; print' SSSSEEEETTTTTTTTIIIINNNNGGGG
Michael
--
Administrator www.shoebox.net
Programmer, System Administrator www.gallanttech.com
--
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
