awkで求めた結果を、元の文字列内にペーストする方法？

Question

###背景
以下のようなデータがあり、

$ cat test.txt 
ABC_01              |        1  |  0.643 |  0.683 | abcdefghijk            
DEFG_02             |        1  |  0.820 |  0.750 | lmnopqrstuvwxyz            
HIJK_03             |        1  |  0.779 |  0.712 | abiugdbshwkj            
LMN_Q1_04           |        3  |  0.999 |  0.966 | ufbeiuybdfgijrs                      
OPQ_Q2              |        4  |  0.939 |  0.920 | mjgbgbisgys

1列目の「_」以降をすべて削除したく、以下のようなコードを使用しました。

$ awk '{sub("_.*", ""); print $0;}' test.txt 
ABC
DEFG
HIJK
LMN
OPQ

###質問
しかし今度は以下のように、awkで得られた文字列を元のデータの１列目の横に2列目として追加しなければいけなくなったのですが、やり方がわかりません。なるべく、上記に示したawkのコードに付け足す形で完結させたいのですが、知恵を貸していただけると嬉しいです。どうぞよろしくお願いいたします。

ABC_01,ABC    
DEFG_02,DEFG         
HIJK_03,HIJK    
LMN_Q1_04,LMN                  
OPQ_Q2,OPQ

Answer 1

awk '{a=$1;sub("_.*","",a);print $1 "," a}'

Answer 2

後方参照して置換する必要があるので、subではなくgensubを使って、

awk '{print gensub(/^([^_]*)_([^ ]*).*$/, "\1_\2,\1", "1")}' test.txt 

とします。()で囲まれた部分2カ所がキャプチャされ、置換文字列の\1と\2がそれぞれの内容に置き換わります。

ABC_01,ABC
DEFG_02,DEFG
HIJK_03,HIJK
LMN_Q1_04,LMN
OPQ_Q2,OPQ

Comments

[candycorn]

gensubが使えるとのこと、ありがとうございます。
早速上記のコマンドを走らせたところ、
awk: calling undefined function gensub
input record number 1, file test.txt
source line number 1
と出力されてしまいました。
これはMacデフォルトのawkがgensubに非対応ということでしょうか？
（環境はMacで、Darwin Kernel Version 20.1.0、bash 5.0.17を使用しています）

[Daregada]

gensubはGNU awkのバージョン3以降でしか使えません。
ご自分の使っているawkのバージョンを「awk -V」とか「awk --version」で調べてください。

[Daregada]

sedでもGNU sedなら「sed -r 's/^([^_]*)_([^ ]*).*$/\1_\2,\1/' test.txt」で同じ結果が得られますが、Macに付いてくるsedだとどうかな……

[candycorn]

awkのバージョンを調べたところ2でしたが、sedの方で無事動きました！大変親切なご回答、ありがとうございました。