Re^3: Regular Expression Doubt

my $text = '1 &plus; 2 <br> <maths> &plus; dfdf</maths>';

my $output = "";
while ($text =~ m/((<maths>.*?<\/maths>)|([^<]*))/gs) {
    if ($2) {
        $output .= $2;
    } else {
        my $segment = $3;
        $segment =~ s/&plus;/&thinsp;&plus;&thinsp;/g;
        $output .= $segment;
    }
}
print $output . "\n";

__END__
1 &thinsp;&plus;&thinsp; 2 br> <maths> &plus; dfdf</maths>
[download]

You lost a < here.

Comment on Re^3: Regular Expression Doubt Select or Download Code

Replies are listed 'Best First'.
Re^4: Regular Expression Doubt by reasonablekeith (Deacon) on Apr 05, 2005 at 15:09 UTC
dammit `my $output = ""; while ($text =~ m/((<maths>.*?<\/maths>)\|+\|.)/gs) { if ($2) { $output .= $1; } else { my $segment = $1; $segment =~ s/+/ + /g; $output .= $segment; } } print $output . "\n";` [download]	[reply] [d/l]
Re^5: Regular Expression Doubt by Anonymous Monk on Apr 06, 2005 at 08:41 UTC
Eh, if you go that way, it could be made much more efficient. No need for the s/// - you're matching any `+` already: `my $output = ""; while ($text =~ m{\G(?:+\|(<maths>.*?<\/maths>\|[^&<]+\|.))}gs) { $output .= $1 \|\| " + "; } print $output, "\n";` [download]	[reply] [d/l] [select]