Re^3: How can I expand my substring?

The "1" has significance, in the sense that it is the loop body. You could rewrite my code as:

while( $string1 =~ s/B-/BB/ or $string1 =~ s/-B/BB/ ) {
    # Replacement already happened in the while condition
};
[download]

There are other ways, but I find this approach to be closest to your description.

Comment on Re^3: How can I expand my substring? Download Code

Replies are listed 'Best First'.
Re^4: How can I expand my substring? by Anonymous Monk on Jun 30, 2014 at 12:10 UTC
Oups, I think it misses case 4 or not? I mean, if the string starts with --- and doesn't have any NNNN before the BBB, then the BBB should be expanded only to the right (if there is space).	[reply]
Re^5: How can I expand my substring? by Corion (Patriarch) on Jun 30, 2014 at 12:17 UTC
Ah, I misread that part of the specification. Most likely, the easiest approach is now to do replacement with `/e` and look-ahead and look-behind: `# Expand string to the left $string4 =~ s!(?<=N)(-+)(?=B)!'B' x length $1!e; # Expand string to the right $string4 =~ s!(?<=B)(-+)!'B' x length $1!e;` [download]	[reply] [d/l] [select]
Re^6: How can I expand my substring? by Anonymous Monk on Jun 30, 2014 at 12:24 UTC
Now it works for all cases... If I am not overdoing it, could you please explain your syntax a bit? I am new to Perl and doesn't seem to grasp your substitution way here...	[reply]
Re^7: How can I expand my substring? by Corion (Patriarch) on Jun 30, 2014 at 12:33 UTC
Re^8: How can I expand my substring? by Anonymous Monk on Jun 30, 2014 at 12:34 UTC
Re^6: How can I expand my substring? by Anonymous Monk on Jul 22, 2014 at 13:04 UTC
Hi there! I was wondering, how can we modify the regexp so as the "expansion" of the BBB label is done for a maximum of 200 positions to the left and to the right (and not till we reach the N label)?	[reply]
Re^7: How can I expand my substring? by Corion (Patriarch) on Jul 22, 2014 at 13:11 UTC
Re^8: How can I expand my substring? by Anonymous Monk on Jul 22, 2014 at 13:59 UTC
Some notes below your chosen depth have not been shown here
Re^4: How can I expand my substring? by Anonymous Monk on Jun 30, 2014 at 12:07 UTC
Thanks Corion! Works smoothly!	[reply]


Perl: the Markov chain saw
	PerlMonks