Re^2: Replace newlines only if not inside braces

in reply to Re: Replace newlines only if not inside braces
in thread Replace newlines only if not inside braces

Did that s/// win an obfuscation contest somewhere?

use warnings;
use strict;
use 5.012;

my $data = <<'END_OF_TEXT';
foo
bar
{{
alpha
beta
}}
baz
END_OF_TEXT


$data =~ s/
    (?:          #Non-capturing group
        {{.*?}}  #Text enclosed by double braces
        \K       #Exclude what's to the left of \K from match
    )?           #Match whole group 0 or 1 time
    \n
/\n<br>/gxms;


say $data;

--output:--
foo
<br>bar
<br>{{
alpha
beta
}}
<br>baz
<br>
[download]

It would make more sense to put the newlines after the breaks if you were trying to pretty print some html.

Comment on Re^2: Replace newlines only if not inside braces Download Code

Replies are listed 'Best First'.
Re^3: Replace newlines only if not inside braces by Anonymous Monk on Feb 11, 2013 at 19:20 UTC
Did that s/// win an obfuscation contest somewhere? so what's your contribution? It would make more sense to put the newlines after the breaks if you were trying to pretty print some html. minor problems of minor minds...	[reply]

In Section Seekers of Perl Wisdom