|
|
|
Your skill will accomplish what the force of many cannot |
|
| PerlMonks |
Re: Compressing a text file using count of continous charactersby pfaut (Priest) |
| on Dec 14, 2007 at 17:01 UTC ( [id://657081]=note: print w/replies, xml ) | Need Help?? |
|
$string =~ s/(.)\1+/length($&).$1/eg;
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||||||||||||