Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
$text =~ s/$RE{balanced}{-parens=>'{}'}//g;

print $text;
  2. or download this
    our $re = qr/(?:\{(?:(?>[^\{\}]+)|(??{$re}))*\})/;
  3. or download this
    use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new($re)->explain;
  4. or download this
    The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------