[Moscow.pm] parsing {string}{string} Regexp-Common etc.

[Ruslan Zakirov]

2011/6/11 Ruslan Zakirov <ruz на bestpractical.com>:
> 2011/6/11 Aleksander Gorohovski <angel на feht.dgtu.donetsk.ua>:
>> и не знаю можно ли как то указать, что
>> закрывающаяся фигурная скобка может идти с \d*
>> Пробовал
>> /$RE{balanced}{-parens=>"{}\d*"}/g;
>> но это не работает
>> :(
>>
>
> perl -MRegexp::Common=balanced -e 'my @r = ("{a}1{b}{c}3" =~
> /($RE{balanced}{-parens=>"{}"}\d*)/g); print join "\n", @r, "";'
> {a}1
> {b}
> {c}3

perl -MRegexp::Common=balanced -e 'my $bre =
qr/$RE{balanced}{-parens=>"{}"}/; my @r = (split /($bre)/, "{a}1
anything {b} after {c} balanced, but {d} not balanced"); foreach my $e
(splice @r ) { if ( $e =~ /^$bre$/ ) { push @r, $e } elsif ( @r ) {
$r[-1] .= $e } } print join "\n", @r, "";'
{a}1 anything
{b} after
{c} balanced, but
{d} not balanced


> --
> Best regards, Ruslan.
>



-- 
Best regards, Ruslan.