in reply to Re: Tips on how to perform this substitution?
in thread Tips on how to perform this substitution?

It can be done in one s/// operation...

use v5.10;
use strict;
use warnings;

$_ = '--BBB----BB--B-------B--B--BBBB---B--';

s ((B+|.)) {
    state $char = 'i';
    if (index($1, 'B') == 0) {
        $char = $char eq 'i' ? 'o' : 'i';
        'M' x length($1);
    }
    else {
        $char;
    }
}eg;

say;

[download]
use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Replies are listed 'Best First'.
Re^3: Tips on how to perform this substitution?
by Tux (Canon) on Jan 22, 2014 at 14:47 UTC

    That is way too complex :)

    my $p = "--BBB----BB--B-------B--B--BBBB---B--";

my @x = qw( i o );
my $x = 0;

$p =~ y/B/M/;
$p =~ s/(-+)/$x[$x++%2]x length($1)/ge;

say $p;

    [download]

    Enjoy, Have FUN! H.Merijn
[reply]
[d/l]

In Section Seekers of Perl Wisdom