nin*_*alj 47
sed ':a;/0$/{N;s/\n//;ba}'
Run Code Online (Sandbox Code Playgroud)
在循环(分支ba
到标签:a
)中,如果当前行以0(/0$/
)追加到下一行(N
)并删除内部换行符(s/\n//
).
AWK:
awk '{while(/0$/) { getline a; $0=$0 a; sub(/\n/,_) }; print}'
Run Code Online (Sandbox Code Playgroud)
Perl的:
perl -pe '$_.=<>,s/\n// while /0$/'
Run Code Online (Sandbox Code Playgroud)
庆典:
while read line; do
if [ ${line: -1:1} != "0" ] ; then
echo $line
else echo -n $line
fi
done
Run Code Online (Sandbox Code Playgroud)
awk也可能很短:
awk '!/0$/{printf $0}/0$/'
Run Code Online (Sandbox Code Playgroud)
测试:
kent$ cat t
#aasdfasdf
#asbbb0
#asf
#asdf0
#xxxxxx
#bar
kent$ awk '!/0$/{printf $0}/0$/' t
#aasdfasdf#asbbb0
#asf#asdf0
#xxxxxx#bar
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
37247 次 |
最近记录: |