perl - 如何拆分一条线并重新排列其元素？

Question

我在一行上有一些数据，如下所示

abc edf xyz rfg yeg udh

我想呈现如下数据

abc
xyz
yeg


edf
rfg
udh

以便以换行符分隔打印替代字段。
是否有任何一种衬垫？

Answer 1

以下awk脚本可以做到:

> echo 'abc edf xyz rfg yeg udh' | awk '{
    for (i = 1;i<=NF;i+=2){print $i}
    print "";
    for (i = 2;i<=NF;i+=2){print $i}
    }'
abc
xyz
yeg

edf
rfg
udh