AWKで入力csvファイルの数値xを読み取り、出力csvファイルのx番目に書き出したい

Question

macでcsvファイルの変換をしています。

入力csvファイルの数値xを読み取り、出力csvファイルのx番目に書き出したいです。

入力csvファイルの３項目めの数値を読み取りその数値の箇所に８項目めの数値を記入したいです。

入力csvファイル

2019,1222,3,,,,,1,,,,,
2019,1222,4,,,,,1,,,,,
2019,1222,5,,,,,0,,,,,
2019,1222,6,,,,,0,,,,,
2019,1222,7,,,,,0,,,,,
2019,1222,8,,,,,0,,,,,

期待する結果

出力csvファイル

2019,1222,1,,,,,,
2019,1222,,1,,,,,
2019,1222,,,0,,,,
2019,1222,,,,0,,,
2019,1222,,,,,0,,
2019,1222,,,,,,0,

現状

出力ファイルの任意の場所に吐き出せていません。
どのようにすれば良いのか、AWKでは不可能なのか教えていただきたいです。

現状のコード

 cat ./51610004_20190401.csv | awk 'BEGIN {FS=",";OFS=","} {print $1,$2,$8,"","","","",""}' > ./output.csv

Answer 1

「$(フィールド番号の入った変数名)」という書式で任意のフィールドにアクセスできます。
(下の例ではposという変数にフィールド番号を入れて、$posで指定したフィールドにアクセスしてます)

NF=2で一旦切り詰めてからNF=9することによって、
フィールドの一部をクリアするところがちょっとトリッキーかも。

cat ./51610004_20190401.csv | awk 'BEGIN {FS=",";OFS=","} {pos=$3;dat=$8;NF=2;NF=9;$pos=dat;print $0}' > ./output.csv

※以下コメントでのご指摘を受けて追記

「NF=2」とした場合にフィールドのクリアをしないawk実装があるようです。
代わりにforループでのクリアに置き換えると次のようになります。

cat ./51610004_20190401.csv | awk 'BEGIN {FS=",";OFS=","} {pos=$3;dat=$8;NF=9;for(i=3;i<=9;++i){$i=""};$pos=dat;print $0}' > ./output.csv 

Comments

[kobearen]

丁寧な説明までありがとうございます。
pos=$3;　入力ファイルの3番目にアクセス
dat=$8;　datという名前の変数に8番目の数値を入れる
NF=2;NF=9; 頭から2カラム取得、(3~9はクリア？)頭から9カラム取得
$pos=dat;　pos番目にdatの数値を入れる
print $0
今作業できず、このような認識です。
おかげさまで明日朝一で実行できます。ありがとうございます！！

[kobearen]

ありがとうございます。朝イチで実行しました。

すごく惜しい気がするのですが、以下のようになってしまい、期待結果が出ません。

2019,1222,3,,,,,1,,,,1,
2019,1222,4,,,,,1,,,,1,
2019,1222,5,,,,,0,,,,1,
2019,1222,6,,,,,0,,,,1,
2019,1222,7,,,,,0,,,,1,
2019,1222,8,,,,,0,,,,1,

NF=2で一旦切り詰めてからNF=9すること
この辺りの理解が乏しくさらに考えてみます。

[hidezzz]

ぱっと見た感想としては、提示したコマンドがちゃんと実行されてないんじゃないかという印象を受けます。
そうでなければ環境依存で、awk実装の違いとか、シェル環境の違いとか…。

回答は手元にあった次の２つの動作環境で動作させて
質問にある「期待される結果」と一致することを確認しています。
LinuxMint19.2のGNU Awk 4.1.4
NetBSD8.0のawk(実装はnawkと呼ばれているもののようです)

Macの環境では確認していませんが、
一応gawkを入れてみてgawkを使ってみるとか…。

[dodox86]

興味があったので試させていただきました。Windows Cygwin のGNU awk 5.0.1 ではOKでした。
macOS Catalinaのawk(awk version 20070501) ですと以下のような結果となりました。質問者さんのmacOSでの結果とも違いますね。
2019,1222,1,,,,,1,
2019,1222,4,1,,,,1,
2019,1222,5,,0,,,0,
2019,1222,6,,,0,,0,
2019,1222,7,,,,0,0,
2019,1222,8,,,,,0,

ご参考まで。

[hidezzz]

検証ありがとうございます。

ちなみに、手元環境のNetBSD 8.0のawkは
$awk -version
awk version 20121220
でした。

「NF=2」しても第3フィールド以降がクリアされないようですね。
代わりにforループでのクリアに置き換えると次のようになります。
(本文にも追記しておきます)

cat ./51610004_20190401.csv | awk 'BEGIN {FS=",";OFS=","} {pos=$3;dat=$8;NF=9;for(i=3;i<=9;++i){$i=""};$pos=dat;print $0}' > ./output.csv

[kobearen]

ありがとうございます。
できました！！！！
本当に助かりました。