advanced (?) search and replace in perl 1

[LeukvoorJ]

I would like to find all the double letters in a string and replace them with the same letter + another character. I tried:

$string =~ s/.{2}/.2/gi;

But that doesn't work. I want to f.e. 'll' to become 'l2'. Can that be easily done?

Thanks in advance,

J

 

[TrojanWarBlade]

Yes,

echo "The tree fell onto the log" | perl -lne 's/(.)\1/${1}2/g;print'

Trojan.

 

[LeukvoorJ]

I copy pasted it in windows cmd.exe but I don't see anything...?

 

[TrojanWarBlade]

Windoze?
That was for a Unix or Linux.
Suffice to say that the regex is the bit you need.
To make it look like your sample:

$string =~ s/(.)\1/${1}2/gi;

BTW: Do you really need it to be case insensitive?


Trojan.

 

[LeukvoorJ]

Ah thanks. I don't specifically need the case insensitivity. I'll try it with and without.

 

[TrojanWarBlade]

Do you need it to only ever handle 2 or would it be better if it could put the quantity after the letter?

Try this for size!

$string =~ s/((.)\2+)/"$2" . length($1)/ge;

Trojan.

 

[LeukvoorJ]

Your simpler one worked! Thanks! The more complex one didn't but it doesn't matter, I'm very happy it works. Thanks!

J

 

[TrojanWarBlade]

Didn't?
Why not?
What data did you apply it to?


Trojan.

 

[LeukvoorJ]

Just text in the string. I'll check it out later, I've got other thing to do at this moment. But thanks for your help.

 

[stevexff]

Nice solution, Trojan. have a star!

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[TrojanWarBlade]

Thanks Stevexff





Trojan.