☰

如何使用 AWK 将奇数行和偶数行打印为列？

tag-icon • tag-icon text-processing awk
如何使用 AWK 将奇数行和偶数行打印为列？

我有 R 的输出，我需要正确打印输出。我需要将奇数行和偶数行打印为相应的列。

原始文件

4             4             4             4             4 
-3.592311e+00 -3.360352e+00 -3.063397e+00 -3.660137e+00  8.053911e+00 
            4             4             4             4             4 
 1.077868e+01 -2.455155e+00  6.214082e+00  5.311552e+00  5.311552e+00
       10            10            10            10            10 
-4.394679e+00 -2.527588e+00  7.716434e+00  5.001199e+00  2.653916e+00 
           10            10            10            10            10 
 3.673181e+00  3.721885e+00  3.464234e+00 -4.363173e-01  6.849429e-01

所需输出

    4 -3.592311e+00
    4 -3.360352e+00
    4 -3.063397e+00
    4 -3.660137e+00
    4 8.053911e+00
    4 1.077868e+01
    4 -2.455155e+00
    4 6.214082e+00
    4 5.311552e+00
    4 5.311552e+00
   10 -4.394679e+00
   10 -2.527588e+00
   10 7.716434e+00
   10 5.001199e+00
   10 2.653916e+00 
   10 3.673181e+00
   10 3.721885e+00 
   10 3.464234e+00
   10 -4.363173e-01
   10 6.849429e-01

我使用了以下代码，但它不能给我我想要的

awk '{ for (i = 1; i <= NF; i++) f[i] = f[i] " " $i ; if (NF > n) n = NF } END { for (i = 1; i <= n; i++) sub(/^ */, "", f[i]) ; for (i = 1; i <= n; i++) print f[i] } ' file

答案1

这是一种 awk 方法，它依赖于将偶数行和奇数行分割成适当的数组。

$ awk 'NR%2 !=0 {split($0,col1)}; NR%2 == 0 {split($0,col2); for (i=1;i<=length(col1);i++) print col1[i],col2[i]};' inpu>
4 -3.592311e+00
4 -3.360352e+00
4 -3.063397e+00
4 -3.660137e+00
4 8.053911e+00
4 1.077868e+01
4 -2.455155e+00
4 6.214082e+00
4 5.311552e+00
4 5.311552e+00
10 -4.394679e+00
10 -2.527588e+00
10 7.716434e+00
10 5.001199e+00
10 2.653916e+00
10 3.673181e+00
10 3.721885e+00
10 3.464234e+00
10 -4.363173e-01
10 6.849429e-01

其工作原理非常简单。NR % 2 != 0告诉我们这条线是奇数线，也是NR % 2 == 0偶数线。在奇数行中，我们只将整行拆分为数组。在偶数行中，我们逐项拆分并打印出两个数组。此过程以交替方式重复，直到到达最后一行。

当然这个是可以改进的，可以增加柱子之间的空间等等。该方法并非万无一失，而是针对这种特定情况量身定制的，其中原始文件的每一行中的字段数量相同

相关内容