appending a file to another as a new column

comp.lang.awk

以下のファイル A (File A) にファイル B (File B) を結合して以下のようなもの (Grouped) を作りたい場合の質問です。

File A
======
row1, row2, row3,
A, 1.0, 1.3, 2.0,
B, 10.2, 3.2, 12.8,
C, 100.0, 102.3, 108.9

File B
======
row4,
20.3,
34.1,
100.5

Grouped
=======
row1, row2, row3, row4,
A, 1.0, 1.3, 2.0, 20.3,
B, 10.2, 3.2, 12.8, 34.1,
C, 100.0, 102.3, 108.9, 100.5

我流なら配列に書き込んで、END ブロックで処理するくらいしか思いつかないのですが、回答として以下のようなスクリプトが出ています。

## awk -f prog.awk fileB fileA
BEGIN { FS=OFS="," }
## Remove trailing ",".
{ sub(/, *$/,"") }
## Reading 1st file?
ARGV[1]==FILENAME { a[NR]=$1 ; next }
{ $(NF+1)=a[FNR] ; print }

nawk 'BEGIN { while ( 0<(getline A

二番目のものはファイルをオープンするファイル名を決めておけば、同時に 2 つのファイルをオープンできるというもので、なかなか面白いですね。