perl正則表達式大括號

如何匹配{和}之間的多行。確實我需要匹配下面的塊perl正則表達式大括號

host customerPERA { 
     host-identifier option agent.circuit-id "x:y"; 
     fixed-address yyy.yyy.yyy.yyy; 
     option routers xxx.xxx.xxx.xxx; 
     option subnet-mask 255.255.255.0; 
}

我必須從非常大的dhcpd.conf文件中刪除該塊。在此先感謝！

P.S.我忘了，我需要的正則表達式爲Perl ..

來源

2016-06-10 perun_

我做到了：

perl -pe 'BEGIN{undef $/;} s/^host customerPERA[^}]*}//smg' /etc/dhcp/dhcpd.conf

感謝所有

來源

2016-06-10 08:54:04

如果在輸入內發現任何大括號，那麼怎麼辦？可能會不符合？ – ssr1012

@ ssr1012：我配置dhcpd服務器已經很長時間了，但是如果我正確記得，沒有任何在主機定義中使用大括號的實例。但我可能是錯的 – stevieb

的解決你的問題：

perl -p0i -e 's/host\s+customerPERA\s+\{[^}]+\}/host customerPERA {}/g' /etc/dhcp/dhcpd.conf

它將取代「主機customerPERA {}」上的「主機customerPERA {}」（空大括號）

來源

2016-06-10 07:51:05

可能還需要/ s多行也 – xxfelixxx

@xxfelixxx：/ s改變'.'行爲的方式。正則表達式中沒有'.'。 – choroba

'/ m'改變'^'和'$'的行爲方式。這裏不需要。 – choroba

我能做到這樣：

輸入：

host customerPERA{ 
     host-identifier option agent.circuit-id "x:y"; 
     fixed-address yyy.yyy.yyy.yyy; 
     option routers xxx.xxx.xxx.xxx; 
     option subnet-mask 255.255.255.0; 
}

如果這是找到的情況下精確匹配：

正則表達式：

$myRegex = qw/((?:[^{}]*(?:{(?:[^{}]*(?:{(?:[^{}]*(?:{[^{}]*})*[^{}]*)*})*[^{}]*)*})*[^{}]*)*)/; 

if($pattern=~m/host CustomerPERA\{$myRegex\}/gs) 
{ 
     #do it you statement here 
}

來源

2016-06-10 09:59:11 ssr1012

你想與(?s)本地使用single line modifier。這可以給你一個行代碼來刪除或編輯你想要的。

$string =~ s/host customerPERA \{(?s).+?\}//;

來源

2016-06-11 12:32:48

perl正則表達式大括號

回答

相關問題