我们有一个源文件需要格式化为固定宽度的文件。
源文件格式:
Hdr1
Dtl1.1
Dtl1.2
Dtl1.3
Dtl1.4
Trailer0004
Hdr2
Dtl2.1
Dtl2.2
Dtl2.3
Dtl2.4
Dtl2.5
Trailer0005
.
.
.
.
HdrN
DtlN.1
DtlN.2
DtlN.3
Trailer0003
需转换为:
Hdr1 Dtl1.1 Dtl1.2 Dtl1.3 Dtl1.4
Hdr2 Dtl2.1 Dtl2.2 Dtl2.3 Dtl2.4 DTL 2.5
.
.
.
.
HdrN DtlN.1 DtlN.2 DtlN.3 DtlN.4
答案1
和perl
:
perl -n -e 'if (m/^Trailer/) {print "\n"} else {chomp; print $_," "}' arun.txt
输出:
Hdr1 Dtl1.1 Dtl1.2 Dtl1.3 Dtl1.4
Hdr2 Dtl2.1 Dtl2.2 Dtl2.3 Dtl2.4 Dtl2.5
HdrN DtlN.1 DtlN.2 DtlN.3
注意:输出的每行都有一个尾随空格字符。如果您不希望出现这种情况,请通过管道输出来摆脱它sed -e 's/ $//'
。或者改用以下版本的脚本:
perl -n -e 'if (m/^Trailer/) {
print join(" ",@line),"\n";
@line=();
} else {
chomp;
push @line,$_;
}' arun.txt