如何使用此Perl程序獲得正確的輸出？

Question

我有一個正則表達式的問題。我是 試圖提取while和if中的多個條件。我在Windows XP上使用Perl 5.8.6。

@conditions是恰好包含while循環內容的陣列，例如：

while 
(
    (condition A) && 
    (condition B) 
) 

可以假定@conditions數組包含上述數據：

my perl code sampled: 

my $count = 0; 
foreach my $condition (@conditions) { 
    $count++; 
    my ($open,$close) = $condition =~ /((?: [(] | \s)*) (.*) /msx; 
    print "$open $count $close"; 
    } 

和我的C代碼：

while 
(
    ( 
    1 condition A && 
    2 condition B 
    )&& 
    (
    3 condition C 
    4 condition D 
    ) 
) 

我面臨問題時，我有一個而像這樣的循環：

while 
(

    (condition A) && 
    (condition B) 
) 

我需要的輸出必須是：

while 
(

    1 (condition A) && 
    2 (condition B) 
) 

但它打印有...

while 
(
    (1 condition A) && 
    (2 condition B) 

) 

誰能幫我用正則表達式讓我期望的輸出？

Answer 1

您有print "$open $count $close";，並且您聲明您希望數字在括號之前。

因此使用print "$count $open$close";