Perl正則表達式：與可選多行匹配文本

Question

我試圖從Linux Make文件中提取目標文件。下面是一些例子：

英特爾E1000E：

e1000e-objs := 82571.o ich8lan.o 80003es2lan.o \ 
     mac.o manage.o nvm.o phy.o \ 
     param.o ethtool.o netdev.o ptp.o 

Chelsio的T3：

cxgb3-objs := cxgb3_main.o ael1002.o vsc8211.o t3_hw.o mc5.o \ 
     xgmac.o sge.o l2t.o cxgb3_offload.o aq100x.o 

Atheros的ALX：

alx-objs := main.o ethtool.o hw.o 

我怎樣才能讓一個正則表達式返回什麼之後：=考慮有多條線是可選的，可能有兩條以上的線？請注意，反斜槓是Makefile內容的一部分。

我只知道如何與像手動指定的新行數：

$obj_files_no_ext = "e1000"; 
my @filestmp = ($Makefile_contents =~ m/$obj_files_no_ext-objs\s*[\+\:]= (.*)\\\s*\n(.*)/g); 

Answer 1

你可以用這個嘗試：

$obj_files_no_ext-objs\s*:=\s*((?:(?:[^\s\\]*?\.o)[\s\n\r\\]*)+) 

這將是屬於所有對象文件捕捉到一定$obj_files_no_ext組1

Answer 2

你可以用這個模式嘗試：

(?>$obj_files_no_ext-objs\s*:=|\G)\s*\K(?>[^\s.]++|\.(?!o(?:\s|$)))++\.o 

圖案的詳細資料：

(?>     # open an atomic group 
    $obj_files_no_ext # radical 
    -objs\s*:=   
    |     # OR 
    \G     # contiguous match 
)      # close the atomic group 
\s*\K     # optional spaces and reset all the match 
(?>     # open an atomic group (filename possible characters) 
    [^\s.]++   # all that is not a white character or a dot (1+ times) 
    |     # OR 
    \.(?!o(?:\s|$)) # a dot not followed by "o", a space or the string end 
)++     # repeat the atomic group one or more times 
\.o   

例如：

#!/usr/bin/perl 
use strict; 
use warnings; 

my $Makefile_contents = q{e1000e-objs := 82571.o ich8lan.o 80003es2lan.o 
    mac.o manage.o nvm.o phy.o 
    param.o ethtool.o netdev.o ptp.o}; 

my $obj_files_no_ext = "e1000e"; 
my $reg = qr/(?>$obj_files_no_ext-objs\s*:=|\G)\s*\K(?>[^\s.]++|\.(?!o(?:\s|$)))++\.o/; 
my @filestmp = $Makefile_contents =~ /$reg/g; 
print join(" ",@filestmp);