Perlの正規表現に複数の空白行があります

Question

私はperlで文字列を解析し、その配列を配列に入れようとしています。

Ex。 "FUNC1（VALUE1）VALUE1、VALUE2、FUNC2（FUNC1（VALUE3））VALUE3、VALUE4、FUNC3（VALUE5）VALUE5"

出力：

FUNC1(VALUE1) VALUE1 
VALUE2 
FUNC2(FUNC1(VALUE3)) VALUE3 
VALUE4 
FUNC3(VALUE5) VALUE5 

マイコード：

my $in = "FUNC1(VALUE1) VALUE1, VALUE2, FUNC2(FUNC1(VALUE3)) VALUE3, VALUE4, FUNC3(VALUE5) VALUE5"; 

my @cols = ($in =~ /((?&full_m)),? 
(?(DEFINE) 
      (?<full_m>(?&full_f)|(?&word)) 
      (?<full_f>(?&func)\s(?&word)) 
      (?<func>(?&word)\((?&worf)\)) 
      (?<worf>(?&func)|(?&word)) 
      (?<word>\s*\w+\s*) 
     )/gx); 
print "$in\n"; 

my $count = 1; 
foreach (@cols) { 
    print "$count: $_\n"; 
    ++$count; 
} 

問題は私がマッチを得るだけでなく、5つの空のマッチを得ることです。

1: FUNC1(VALUE1) VALUE1 
2: 
3: 
4: 
5: 
6: 
7: VALUE2 
8: 
9: 
10: 
11: 
12: 
13: FUNC2(FUNC1(VALUE3)) VALUE3 
14: 
15: 
16: 
17: 
18: 
19: VALUE4 
20: 
21: 
22: 
23: 
24: 
25: FUNC3(VALUE5) VALUE5 
26: 
27: 
28: 
29: 
30: 

Answer 1

これは、グループ1をcolの配列に格納する以外は同じことです。より良い正規表現を表示するには

my $in = "FUNC1(VALUE1) VALUE1, VALUE2, FUNC2(FUNC1(VALUE3)) VALUE3, VALUE4, FUNC3(VALUE5) VALUE5"; 
my @cols; 
while ($in =~ /((?&full_m)),?(?(DEFINE)(?<full_m>(?&full_f)|(?&word))(?<full_f>(?&func)\s(?&word))(?<func>(?&word)\((?&worf)\))(?<worf>(?&func)|(?&word))(?<word>\s*\w+\s*))/gx) 
{ 
    push @cols, $1; 
} 
print "$in\n"; 

my $count = 1; 
foreach (@cols) { 
    print "$count: $_\n"; 
    ++$count; 
} 

出力

FUNC1(VALUE1) VALUE1, VALUE2, FUNC2(FUNC1(VALUE3)) VALUE3, VALUE4, FUNC3(VALUE5) VALUE5 
1: FUNC1(VALUE1) VALUE1 
2: VALUE2 
3: FUNC2(FUNC1(VALUE3)) VALUE3 
4: VALUE4 
5: FUNC3(VALUE5) VALUE5 

、書式設定が

((?&full_m))    # (1) 
,? 
(?(DEFINE) 
     (?<full_m>     # (2 start) 
      (?&full_f) 
     | (?&word) 
    )        # (2 end) 
     (?<full_f>     # (3 start) 
      (?&func) \s (?&word) 
    )        # (3 end) 
     (?<func>      # (4 start) 
      (?&word) \((?&worf) \) 
    )        # (4 end) 
     (?<worf>      # (5 start) 
      (?&func) 
     | (?&word) 
    )        # (5 end) 
     (?<word> \s* \w+ \s*)  # (6) 
)