nok 行转列

1cpuer

# cat file1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

如何得出以下结果 :
      1    A
      2    B
      3    C
      4    D
      5    E
      6    F
      7    G
      8    H
      9    I
     10    J
     11    K
     12    L
     13    M
     14    N
     15    O
     16    P
     17    Q
     18    R
     19    S
     20    T
     21    U
     22    V
     23    W
     24    X
     25    Y
     26    Z

有没有 sed 写的，我在做一个 sed script

zxy877298415

回复 1# 1cpuer

1. awk '{while(i++<=NF) {a[i]=a[i]?a[i]" "$i:$i}i=0;}END{while(++i<=NF) print a[i]}' file

复制代码

1cpuer

回复 2# zxy877298415

# echo {A..Z} | tr ' ' '\n'
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z


我用 tr and paste 得到了第二个文件

a=a?a
这个赋值啥意思？
i=0
a[0]=a[0]?a[0]

# paste <(echo {1..26} | tr ' ' '\n') <(echo {A..Z} | tr ' ' '\n')
1        A
2        B
3        C
4        D
5        E
6        F
7        G
8        H
9        I
10        J
11        K
12        L
13        M
14        N
15        O
16        P
17        Q
18        R
19        S
20        T
21        U
22        V
23        W
24        X
25        Y
26        Z

mwl940602

sed -nr '$!N;s/(\b[0-9]+\b)\s?(.*)\n(\b[A-Z]\b)\s?([A-Z])?/\1 \3\n\2\n\4/;P;D'  file1

sunzhiguolu

1. perl -0ne "print(qq($1\t$3\n)) while(s/(\d+)((?s).*?)([A-Z])/$2/)" f

复制代码

moperyblue

file1 只有两行?

yinyuemi

回复 1# 1cpuer

1. sed -nr '1{s/ /\n/g;h};1!{G;:a;s/^([^ ]+)( ([^\n]+))*\n([^ \n]+)/\4 \1\n\3/;P;s/[^\n]+\n//;ta}'

复制代码

1. sed -nr '1h;1!{G;:a;s/([^ ]+)( ([^\n]+))*\n([^ ]+) ?/\4 \1\n\3\n/;P;s/[^\n]+\n//;ta}'

复制代码