在perl中的搜索字符串內嵌入多重匹配

Question

我有OpenGL代碼，我希望在運行astyle後有一些特殊的縮進。例如，

glBegin(GL_LINES); 
glVertex2f(1.0f, 2.0f); 
glVertex2f(1.0f, 2.0f); 
glVertex2f(1.0f, 2.0f); 
glVertex2f(1.0f, 2.0f); 
glEnd(); 

上面的代碼我想改變一些東西像下面。

glBegin(GL_LINES); 
    glVertex2f(1.0f, 2.0f); 
    glVertex2f(1.0f, 2.0f); 
    glVertex2f(1.0f, 2.0f); 
    glVertex2f(1.0f, 2.0f); 
glEnd(); 

在這種特殊情況下glBegin和glEnd之間有什麼，我想要移動4個空格。

我想這樣做內聯和使用Perl。

Answer 1

很難說「內聯」的含義。我假設你想使用-e命令行選項。這是一個非常簡單的使用perl。您應該花一些時間閱讀文檔。在Windows中運行cmd shell：

perl -p -e "$i=0 if/glEnd/;s/^/ /if $i;$i=1 if /glBegin/" <infile.c> outfile.c 

在bash單的人代替雙引號。