Perlの正規表現

Question

でバランスの取れた括弧のマッチング私は、配列に分割して保存する必要がある表現があります。

aaa="bbb{ccc}ddd" { aa="bb,cc" { a="b", c="d" } }, aaa="bbb{}" { aa="b}b" }, aaa="bbb,ccc" 

をかつては、配列に分割して保存され、次のようになります。

aaa="bbb{ccc}ddd" { aa="bb,cc" { a="b", c="d" } } 
aaa="bbb{}" { aa="b}b" } 
aaa="bbb,ccc" 

を

私はPerlバージョン5.8を使用していますが、誰かがこれを解決できましたか？

use strict; 
use warnings; 
use Data::Dumper; 

my $exp=<<END; 
aaa="bbb{ccc}ddd" { aa="bb,cc" { a="b", c="d" } }  , aaa="bbb{}" { aa="b}b" }, aaa="bbb,ccc" 
END 

chomp $exp; 
my @arr = map { $_ =~ s/^\s*//; $_ =~ s/\s* $//; "$_}"} split('}\s*,',$exp); 
print Dumper(\@arr); 

Answer 1

はこのような何かを試してみてください。主な変数aaaの先読みで分割し、単語の境界線を囲んでください。末尾の空白とカンマを任意の文字グループで削除します。

$string = 'aaa="bbb{ccc}ddd" { aa="bb,cc" { a="b", c="d" } }, aaa="bbb{}" { aa="b}b" }, aaa="bbb,ccc"'; 
my @array = split /[,\s]*(?=\baaa\b)/, $string; 

Answer 2

スプリット・ソリューションは、最も単純なようだ：

Answer 3

Recursive Regular Expressionsは通常、「バランスの取れた括弧」{}を捕捉するために使用することができますが、あなたも「バランスの取れた引用符」"と一致する必要があるため、彼らはあなたのために動作しません。
これはPerlの正規表現にとって非常に難しい作業ですが、私はそれが不可能であることは確かです。 （対照的に、これは恐らくMicrosoft's "balancing groups" Regex featureで行うことができます）。

独自のパーサーを作成することをお勧めします。それぞれのキャラクターを処理するときには、それぞれ"と{}とカウントされ、「平衡」の場合は,に分割されます。

Answer 4

私は、自分のパーサーを書くことについて、多かれ少なかれScott Rippeyに同意します。ここでは単純なものです：

my $in = 'aaa="bbb{ccc}ddd" { aa="bb,cc" { a="b", c="d" } }, ' . 
     'aaa="bbb{}" { aa="b}b" }, ' . 
     'aaa="bbb,ccc"' 
; 

my @out = (''); 

my $nesting = 0; 
while($in !~ m/\G$/cg) 
{ 
    if($nesting == 0 && $in =~ m/\G,\s*/cg) 
    { 
    push @out, ''; 
    next; 
    } 
    if($in =~ m/\G(\{+)/cg) 
    { $nesting += length $1; } 
    elsif($in =~ m/\G(\}+)/cg) 
    { 
    $nesting -= length $1; 
    die if $nesting < 0; 
    } 
    elsif($in =~ m/\G((?:[^{}"]|"[^"]*")+)/cg) 
    { } 
    else 
    { die; } 
    $out[-1] .= $1; 
} 

（5.10でテスト;申し訳ありませんが、私はPerlの5.8が手元にないが、これまでのところ、私は知っているように関連するすべての違いがありません。）言うまでもなく、あなたは」 dieをアプリケーション固有のものに置き換えてください。そして、あなたの例に含まれていないケースを扱うために上記を調整する必要があるでしょう。 （引用符で囲まれた文字列が'代わり"の使用することはできますか？\"を含めることができますたとえば、？このコードは、これらの可能性のいずれかを処理しません。）

Answer 5

のPerlモジュール「正規表現::一般的な」を使用します。それはうまく動作する良いバランスのとれた括弧Regexを持っています。

# ASN.1 
use Regexp::Common; 
$bp = $RE{balanced}{-parens=>'{}'}; 
@genes = $l =~ /($bp)/g; 

Answer 6

例はV5.10で導入された再帰的な正規表現の機能を使用して、perlreにあります。あなたはv5.8に制限されていますが、この質問に来る他の人々は適切な解決策を得るべきです:)

$re = qr{ 
      (        # paren group 1 (full function) 
       foo 
       (       # paren group 2 (parens) 
        \(
         (     # paren group 3 (contents of parens) 
          (?: 
           (?> [^()]+) # Non-parens without backtracking 
           | 
           (?2)   # Recurse to start of paren group 2 
          )* 
         ) 
        \) 
       ) 
      ) 
    }x;