Renamepacing C++頭與perl - 多行問題

Question

我想封閉自定義命名空間中的C++頭只庫的命名空間，以避免與客戶代碼的符號名稱衝突。

這是我寫的perl腳本。它應該把def命名空間放在abc命名空間中。

#!/usr/bin/perl 

while (<>) { 
    s/namespace\s+def\s* 
    (# group 1 - braced string with balanced number of lbraces and rbraces 
     \{ 
     (# group 2 - String without braces or recursion to group 1 
      [^\{\}]* # some string that does not contain braces 
      | (?1) # recursion of group1 
     )* 
     \} 
    ) 
    /namespace abc {\nnamespace def \1\n}/gcsx; 
    print; 
} 

，這裏是我使用的testfile的：

namespace def {} 
namespace def { abc } 
namespace def { { } } 
namespace def { { abcd } } 
namespace def { 
    abc 
} 
namespace def { // some comment 
    do_something(); 
} 
namespace def { 
    do_something(); 
    while (still_not_crashed()) { 
     do_even_more(); 
    } 
} 

然而運行腳本的文件僅產生

namespace abc { 
namespace def {} 
} 
namespace abc { 
namespace def { abc } 
} 
namespace abc { 
namespace def { { } } 
} 
namespace abc { 
namespace def { { abcd } } 
} 
namespace def { 
    abc 
} 
namespace def { // some comment 
    do_something(); 
} 
namespace def { 
    do_something(); 
    while (still_not_crashed()) { 
     do_even_more(); 
    } 
} 

一條線命名工作得很好，但只要應該匹配的模式包含一個換行符，它會停止工作，儘管我在我的正則表達式中添加了s - 修飾符。

我在做什麼錯了？

Answer 1

你要讀一個字符串整個文件然後做替換此字符串：

#!/usr/bin/perl 
use Modern::Perl; 

undef$/; 
$_ = <DATA>; 
    s/namespace\s+def\s* 
    (# group 1 - braced string with balanced number of lbraces and rbraces 
     \{ 
     (# group 2 - String without braces or recursion to group 1 
      [^\{\}]* # some string that does not contain braces 
      | (?1) # recursion of group1 
     )* 
     \} 
    ) 
    /namespace abc {\nnamespace def $1\n}/gsx; 
    print; 


__DATA__ 
namespace def {} 
namespace def { abc } 
namespace def { { } } 
namespace def { { abcd } } 
namespace def { 
    abc 
} 
namespace def { // some comment 
    do_something(); 
} 
namespace def { 
    do_something(); 
    while (still_not_crashed()) { 
     do_even_more(); 
    } 
} 

輸出：

namespace abc { 
namespace def {} 
} 
namespace abc { 
namespace def { abc } 
} 
namespace abc { 
namespace def { { } } 
} 
namespace abc { 
namespace def { { abcd } } 
} 
namespace abc { 
namespace def { 
    abc 
} 
} 
namespace abc { 
namespace def { // some comment 
    do_something(); 
} 
} 
namespace abc { 
namespace def { 
    do_something(); 
    while (still_not_crashed()) { 
     do_even_more(); 
    } 
}