Re: Replace newlines only if not inside braces

in reply to Replace newlines only if not inside braces

As long as the braces groups are not nested you could do it by separating blocks in a split and handling them differently.

use Data::Dump;

my $data = q|
foo
bar
{{
alpha
beta
}}
baz
|;

@splits = split /({{.*?}})/s, $data;

dd \@splits;

my $result="";
while (my $block = shift @splits) {
  $block  =~ s/\n/<br>\n/gs;
  $result .= $block;
  $result .= shift @splits if @splits;
}

print $result;
[download]

output

["\nfoo\nbar\n", "{{\nalpha\nbeta\n}}", "\nbaz\n"]
<br>
foo<br>
bar<br>
{{
alpha
beta
}}<br>
baz<br>
[download]

I refrain from trying a complicated and potentially unmaintainable one-line regex solution.

Some come to mindš, but I don't see the necessity if there are no other restrictions (like lack of memory) involved.

Cheers Rolf

UPDATE

š) like

looping with while (/({{.*?}})/gs) (and \G and pos)
using /e to do substitution within substitutions
complicated look-ahead and look-behind assertion
using \K somehow to restrict replacement

Comment on Re: Replace newlines only if not inside braces Select or Download Code

Replies are listed 'Best First'.
Re^2: Replace newlines only if not inside braces by jbryan (Acolyte) on Feb 11, 2013 at 21:24 UTC
Awesome - thanks so much for your help! I've integrated your suggestions at http://code.google.com/p/appcorepl/source/detail?r=201 - thanks for your help!	[reply]

In Section Seekers of Perl Wisdom