Perl的正則表達式中刪除C註釋與特定關鍵字

Question

我的文字像這樣：

1. /*等等等等等等等等*/
2. /*等等等等JJJ等等等等*/
3. /*等等等等*/
4. /*等等JJJ
5. 等等等等*/
6. /*等等等等*/

我想使用perl正則表達式來刪除以/ *開頭的部分，包含jjj並以*/ 結尾（刪除包含特定關鍵字的c註釋...） 在上面的示例中，我只想要行2，4和5被刪除

你的幫助是最欣賞的，

傑克

Answer 1

一般來說，這是不是很可能。由於評論，延續線等原因，C語法分析非常複雜，因此需要特殊處理。

但是，如果您有足夠簡單的情況，則可以這樣做。因爲你沒有提到它，所以我留下了「// blah jjj」評論處理。

while ($ccode =~ s/(.*?)(\/\*.*?\*\/)//s) 
{ 
    $out .= $1; 
    my $comment = $2; 
    $out .= $comment unless ($comment =~ /\bjjj\b/); 
} 
$out .= $ccode;