用sed或awk在特定的行号插入一行

我有一个脚本文件，我需要用另一个脚本修改，在第8行插入一个文本。

要插入的字符串:Project_Name=sowstest，到一个名为start的文件中。

我尝试使用awk和sed，但我的命令变得混乱。

当前回答

sed -i '8i This is Line 8' FILE

在第8行插入

This is Line 8

进入文件

-i直接修改文件file，不输出到stdout，正如glenn jackman在注释中提到的那样。

其他回答

Perl的解决方案:

又快又脏:

perl -lpe `打印"Project_Name=sowstest"== 8'文件

-l删除换行符并将其添加回去，消除了“\n”的需要 -p在输入文件上循环，打印每一行 -e以单引号执行代码

美元。是行号

等价于@glenn的awk解决方案，使用命名参数:

Perl -slpe打印$s如果$。== $n'——-n=8 -s="Project_Name=sowstest"文件

-s启用基本参数解析器 ——防止-n和-s被标准perl参数解析器解析

位置命令参数:

perl -lpe 'BEGIN{$n=shift;$ s =转变};如果$，则打印$s。== $n' 8 "Project_Name=sowstest"文件

环境变量:

setenv n 8 ; setenv s "Project_Name=sowstest"
echo $n ; echo $s
perl -slpe 'print $ENV{s} if $. == $ENV{n}' file

ENV是包含所有环境变量的散列

Getopt将参数解析为哈希%o:

perl -MGetopt::性病lpe的开始{getopt(“ns”,\ % o)};如果$。== $o{n}'——-n 8 -s "Project_Name=sowstest"文件

Getopt::更长的选项名称

perl -MGetopt::Long -lpe 'BEGIN{GetOptions(\%o，"line=i"，"string=s")};如果$。== $o{line}' -- --line 8——string "Project_Name=sowstest"文件

Getopt是推荐的标准库解决方案。对于一行perl脚本来说，这可能有点过分了，但这是可以做到的

sed -i '8i This is Line 8' FILE

在第8行插入

This is Line 8

进入文件

-i直接修改文件file，不输出到stdout，正如glenn jackman在注释中提到的那样。

awk的答案

awk -v n=8 -v s="Project_Name=sowstest" 'NR == n {print s} {print}' file > file.new

一个成功的答案

ed file << END
8i
Project_Name=sowstest
.
w
q
END

．在它自己的行结束输入模式;w写道;q退出。GNU ed有一个wq命令来保存和退出，但旧ed没有。

进一步阅读:https://gnu.org/software/ed/manual/ed_manual.html

对于那些使用非gnu的SunOS的人来说，下面的代码将会有所帮助:

sed '1i\^J
line to add' test.dat > tmp.dat

^J用^V+^J插入在'1i之后添加换行符。 \必须是该行的最后一个字符。命令的第二部分必须在第二行中。

推荐文章