Re^4: How to make these reg exp changes?

weird?

$s='III...MMMMMOOOO....MMMIIII';
print $s."\n";
%neg = ( O => "I", I => "O" );

$s=~s/([IO])(M*)(\.+)/ $1.$2.( $neg{$1} x length($3) ) /eg;
$s=~s/(\.+)(?=M*([IO]))/ $neg{$2} x length($1) /eg;

print $s;print "\n";
<code>
It prints:<br>
<code>
III...MMMMMOOOO....MMMIIII
IIIOOOMMMMMOOOOIIIIMMMIIII
[download]

Comment on Re^4: How to make these reg exp changes? Download Code

Replies are listed 'Best First'.
Re^5: How to make these reg exp changes? by ikegami (Patriarch) on Nov 16, 2009 at 01:28 UTC
You told us that if the "." is not the first character, one should look back. Are you saying that's wrong? If you actually want to look to the other side of the adjacent Ms, `perl -wle' my %neg = ( O => "I", I => "O" ); $_ = "III...MMMMMOOOO....MMMIIII"; print; s/([IO])(M+)(\.+)/ $1.$2.( $neg{$1} x length($3) ) /eg; s/(\.+)(?=M+([IO]))/ $neg{$2} x length($1) /eg; print; '` [download]	[reply] [d/l]