在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单的人代替双引号。