8行目にテキストを挿入するために別のスクリプトで変更する必要があるスクリプトファイルがあります。
挿入する文字列:Project_Name=sowstest
、start
というファイルに。
Awkとsedを使用しようとしましたが、コマンドが文字化けしています。
sed -i '8i8 This is Line 8' FILE
8行目に挿入
8 This is Line 8
ファイルFILEへ
-i
はglenn jackmanのコメントで述べられているように、ファイルFILEに直接変更を行い、stdoutには出力しません。
ed
回答
ed file << END
8i
Project_Name=sowstest
.
w
q
END
.
は独自の行で入力モードを終了します。 w
は書き込みます。 q
は終了します。 GNU edには、保存して終了するwq
コマンドがありますが、古いedにはありません。
awkの答え
awk -v n=8 -v s="Project_Name=sowstest" 'NR == n {print s} {print}' file > file.new
POSIX sed
(および、たとえば、OS Xのsed
、以下のsed
)では、i
の後にバックスラッシュと改行が必要です。また、少なくともOS Xのsed
には、挿入されたテキストの後に改行が含まれません。
$ seq 3|gsed '2i1.5'
1
1.5
2
3
$ seq 3|sed '2i1.5'
sed: 1: "2i1.5": command i expects \ followed by text
$ seq 3|sed $'2i\\\n1.5'
1
1.52
3
$ seq 3|sed $'2i\\\n1.5\n'
1
1.5
2
3
行を置き換えるには、c
(変更)またはs
(置換)コマンドを数値アドレスで使用できます。
$ seq 3|sed $'2c\\\n1.5\n'
1
1.5
3
$ seq 3|gsed '2c1.5'
1
1.5
3
$ seq 3|sed '2s/.*/1.5/'
1
1.5
3
awk
を使用する代替手段:
$ seq 3|awk 'NR==2{print 1.5}1'
1
1.5
2
3
$ seq 3|awk '{print NR==2?1.5:$0}'
1
1.5
3
awk
は、-v
で渡された変数のバックスラッシュを解釈しますが、ENVIRON
を使用して渡された変数では解釈しません。
$ seq 3|awk -v v='a\ba' '{print NR==2?v:$0}'
1
a
3
$ seq 3|v='a\ba' awk '{print NR==2?ENVIRON["v"]:$0}'
1
a\ba
3
ENVIRON
と-v
の両方がPOSIXで定義されています。
sed
name__-i
フラグは、macOS sed
name__での動作がGNU sed
name__とは異なります。
MacOS/OS Xで使用する方法は次のとおりです。
sed -i '' '8i\
8 This is Line 8' FILE
詳細については、man 1 sed
を参照してください。
Perlソリューション:
Perl -lpe 'print "Project_Name=sowstest" if $. == 8' file
-l
は改行を取り除き、それらを再び追加して、「\ n」の必要性を排除します-p
は入力ファイルをループし、すべての行を出力します-e
は、単一引用符でコードを実行します$.
は行番号です
Perl -slpe 'print $s if $. == $n' -- -n=8 -s="Project_Name=sowstest" file
-s
は初歩的な引数パーサーを有効にします--
は、-nおよび-sが標準のPerl引数パーサーによって解析されないようにしますPerl -lpe 'BEGIN{$n=shift; $s=shift}; print $s if $. == $n' 8 "Project_Name=sowstest" file
setenv n 8 ; setenv s "Project_Name=sowstest"
echo $n ; echo $s
Perl -slpe 'print $ENV{s} if $. == $ENV{n}' file
ENV
は、すべての環境変数を含むハッシュです
Perl -MGetopt::Std -lpe 'BEGIN{getopt("ns",\%o)}; print $o{s} if $. == $o{n}' -- -n 8 -s "Project_Name=sowstest" file
Perl -MGetopt::Long -lpe 'BEGIN{GetOptions(\%o,"line=i","string=s")}; print $o{string} if $. == $o{line}' -- --line 8 --string "Project_Name=sowstest" file
Getoptは、推奨される標準ライブラリソリューションです。
これは、1行のPerlスクリプトではやり過ぎかもしれませんが、実行できます
GNU以外のSunOSを使用している場合は、次のコードが役立ちます。
sed '1i\^J
line to add' test.dat > tmp.dat
GNU sedを使用したsed -e '8iProject_Name=sowstest' -i start
サンプル実行:
[root@node23 ~]# for ((i=1; i<=10; i++)); do echo "Line #$i"; done > a_file
[root@node23 ~]# cat a_file
Line #1
Line #2
Line #3
Line #4
Line #5
Line #6
Line #7
Line #8
Line #9
Line #10
[root@node23 ~]# sed -e '3ixxx inserted line xxx' -i a_file
[root@node23 ~]# cat -An a_file
1 Line #1$
2 Line #2$
3 xxx inserted line xxx$
4 Line #3$
5 Line #4$
6 Line #5$
7 Line #6$
8 Line #7$
9 Line #8$
10 Line #9$
11 Line #10$
[root@node23 ~]#
[root@node23 ~]# sed -e '5ixxx (inserted) "line" xxx' -i a_file
[root@node23 ~]# cat -n a_file
1 Line #1
2 Line #2
3 xxx inserted line xxx
4 Line #3
5 xxx (inserted) "line" xxx
6 Line #4
7 Line #5
8 Line #6
9 Line #7
10 Line #8
11 Line #9
12 Line #10
[root@node23 ~]#