1

考虑您有一个带有以下行的文件 test.cpp

Test(func_class,func1)
{
  Test_Func1();
  Test_Func2();
  Test_Func3();
}

Test(func_class,func3)
{
  Test_Func1();
  Test_Func9();
  Test_Func3();
}

Test(func_class,func2)
{
  Test_Func6();
  Test_Func7();
  Test_Func3();
}

现在我想在大括号之间插入一个新行，例如插入后在 Test(func_class,func1/2/3) 中的例如

Test(func_class,func1)
{
  Test_Func1();
  Test_newFunc6();
  Test_Func2();
  Test_Func3();
}

Test(func_class,func3)
{
  Test_Func1();
  Test_newFunc6();
  Test_Func9();
  Test_Func3();
}

Test(func_class,func2)
{
  Test_Func6();
  Test_newFunc6();
  Test_Func7();
  Test_Func3();
}

这可以使用脚本来完成。任何人都可以建议shell脚本或perl python来做到这一点，

4

2 回答 2

0

以下可能会有所帮助。这是python代码：

cpp = open("test.cpp","r")
lines = cpp.readlines()
printExtraAfterOneLine = False
for line in lines:
  if printExtraAfterOneLine:
    print line
    print '  Test_newFunc6();'
    printExtraAfterOneLine = False
  else:
    if line.strip() == "{":
      printExtraAfterOneLine = True
    print line
于 2013-10-03T09:17:54.017 回答
0

gash.txt输入文件在哪里，out.txt输出文件在哪里：

Python：

extra = '  Test_newFunc6();\n'

fh  = open('gash.txt')
out = open('out.txt','w')

for line in fh:
    out.write(line)
    if line.startswith('{'):
        # Read the next line
        buff = fh.readline()
        out.write(buff)
        out.write(extra)

fh.close()
out.close()

perl:

use warnings;
use strict;

my $extra = "  Test_newFunc6();\n";

open(my $fh, '<', 'gash.txt') || die "gash.txt: $!";
open(my $out, '>', 'out.txt') || die "out.txt: $!";

while (<$fh>) {
    print $out $_;
    if (substr($_, 0, 1) eq '{') {
        # Read the next line
        my $buff = <$fh>;
        print $out $buff;
        print $out $extra;
    }
}

close($fh);
close($out);

重击：

extra="  Test_newFunc6();\n";
wFlag=false

exec 3> out.txt

IFS=
while read -r line
do
    echo "$line" >&3

    $wFlag && echo "$extra" >&3

    if [[ ${line:0:1} == '{' ]]
    then
        wFlag=true
    else
        wFlag=false
    fi
done < gash.txt

exec 3<&-
于 2013-10-03T11:26:52.570 回答