1234abcd

1cpuer

cat t1
1
2
3
4
a
b
c
d
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1
a
2
b
3
c
4
d
如何通过代码得到如上文件

danbaoyu

awk.  '{if($0~/[0-9])a[++i];else b[++j]}END{for(i=1;i<=j;i++){print a;print b}}

fh21_xuejinlian

awk '{a[NR%4]=a[NR%4]" "$0;next}END{for(i=1;i<=asorti(a,b);i++)print a[b[i]]}' file | sort | xargs -n 1

zxy877298415

回复 1# 1cpuer

1. awk '/[0-9]+/{a[++i]=$0}/[a-z]+/{b[++j]=$0}END{for(k=1;k<=i;k++) print a[k]"\n"b[k]}' file

复制代码

moperyblue

1. sed -r ':a;/,/{/^,/!P;D};N;/\n[0-9]+$/ba;s/([^\n]*)(\n.*)(\n.*)/\1\3\n,\2/;ta' file

复制代码

Herowinter

回复 1# 1cpuer

1. awk '{a[NR]=$0} END{for(i=1;i<=NR/2;i++)print a[i]"\n"a[NR/2+i]}' t1

复制代码

Herowinter

回复 1# 1cpuer

1. awk '{a[NR]=$0} END{for(i=1;i<=NR/2;i++)print a[i]"\n"a[NR/2+i]}' t1

复制代码

jcdiy0601

1. awk '/[0-9]+/{a[++i]=$0}/[a-z]+/{b[++j]=$0}END{for(i=1;i<=j;i++)print a[i]"\n"b[i]}' f
   

复制代码

moperyblue

1. awk '/[0-9]/{a[NR]=$0;next}{print a[++i] RS $0}' file

复制代码

sunzhiguolu

1. perl -ne '/\d/?push(@a,$_):print(shift(@a),$_)' f

复制代码