如何在'awk'中将2D数组操作成多维数组？

Question

我想将2D数组转换为具有'awk'的多维数组，例如

1 2 3 4 5 6 ...
2 4 5 3 6 7 ...
5 3 2 4 5 1 ...
3 5 2 5 5 1 ...
.
.

成

Array[1]
3 6 ...
2 5 ...
1 4 ...

Array[2]
5 7 ... 
4 6 ...
2 3 ...

.
.
Array[n]

我尝试了不同的方法，但我甚至没有接近解决方案。请告知如何实现这样的努力......

此外，我开始使用2D阵列并将其转换为我的需求......

'BEGIN {
 for (x = 0; ++x <= 5;)
   for (y = 0; ++y <= 5;)
    A[x][y] = "element:" FS x FS y

 for (i in A) {
   split(i, t, SUBSEP)
     print A[t[1], t[2]]
   }
 }'

但它仅适用于2D ...但是，自从发布以来，我能够改进我的答案

awk '
{ 
  for (i=1; i<=NF; i++)  {
    a[NR,i] = $i
  } 
}
NF>p { p = NF }
END {    
  for(j=1; j<=p; j++) {
    str=a[1,j]
    for(i=2; i<=NR; i++) {
      str=str" "a[i,j];
    }
    print str
  }
 }' f3a.dat > f4.dat ## Transpose

 # Loop for all columns
 awk '{print $1}' f4.dat > f5.dat ## take out a column prior transformation into array

 awk 'ORS=NR%3?FS:RS' f5.dat > f6.dat ## putting column into  array::3=number of elements in row

 awk '
 { 
   for (i=1; i<=NF; i++)  {
     a[NR,i] = $i
   } 
 }
 NF>p { p = NF }
 END {    
   for(j=1; j<=p; j++) {
     str=a[1,j]
     for(i=2; i<=NR; i++) {
       str=str" "a[i,j];
     }
     print str
   }
  }' f6.dat > f7.dat ## transpose

  tac f7.dat > f8.dat ## reverse line order [UNIX command]

我重现了数组[1]，但它没有效率，因为我真正的数组转换是[72x100000]。

如何将上述转换为主循环并且每个伪文件f8.dat直接进入多维数组？

Answer 1

不太确定你要做什么，但是这个awk脚本执行指定的转换：

awk -v STEP=3 '
{
    for (i=0; i<NF; i++) {
        x = STEP - i%STEP;
        a[x] = a[x] ? a[x] OFS $(i+1) : $(i+1);
    }
    printf "%sArray[%d]\n", (FNR>1 ? "\n" : ""), FNR;
    for (i=1; i<=STEP; i++) {
        print a[i];
        a[i]="";
    }
}
' <<EOD
1 2 3 4 5 6
2 4 5 3 6 7
5 3 2 4 5 1
3 5 2 5 5 1
EOD