Re: Replace repeated characters with *

A simple regular expression makes it easy:

use strict;
use warnings;

my $str = "Foooboooobaaar";

$str =~ s/(.)\1+/$1*/g;
print "\n$str";
[download]

Prints:


Fo*bo*ba*r
[download]

True laziness is hard work

Comment on Re: Replace repeated characters with * Select or Download Code

Replies are listed 'Best First'.
Re^2: Replace repeated characters with * by Anonymous Monk on Jul 03, 2009 at 11:50 UTC
Thanks. Plain regex makes it too easy.	[reply]