2011/6/11 Ruslan Zakirov <[email protected]>:
> 2011/6/11 Aleksander Gorohovski <[email protected]>:
>> и не знаю можно ли как то указать, что
>> закрывающаяся фигурная скобка может идти с \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.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
