awk横纵转换

数据如下：

No
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
STAFF NAME
PHUORNG ROTHA
SIN HEL
NGOUN SAMNANG
NGOUN SAMNANG
NGOUN SAMNANG
NGERT KIMSEY
VUN DANY
VUN DANY
VUN DANY
VANN VEASNA
VANN SOKCHOMREUN
CHOEM SREYLIN
MEN LINDA
SOEUN NARITH
SOEUN NARITH
KONG CHHAIYA
VI-JN DANY
CHOEM SREYLIN
CHOEM SREYLIN
VY KVAY
VY KVAY
VY KVAY
SON SOPHAL
SON SOPHAL
SON SOPHAL
TOCH PHEAN
DAN KEK
DAN KEK
DAN KEK
DAN KEK
DAN KEK
E ROTH
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
PHO VIREAKPHEAP
ID NUMBER
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
79
31
XXX
XXX
XXX
XXX
79
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
LOCATION
KOMPONG SPEU
KOMPONG SPEU
KOMPOT
KOMPOT
KOMPOT
KOMPOT
PREY VENG
PREY VENG
PREY VENG
PREY VENG
KOMPONG THOM
PORSENCHEY
PORSENCHEY
RUSSEY KEO
RUSSEY KEO
B.MEANCHEY
PREY VENG
PORSENCHEY
PORSENCI ICY
TBONG KHMUM
TBONG KHMUM
TBONG KHMUM
KRATIE
KRATIE
KRATIE
KOMPOT
KOMPOT
KOMPOT
KOMPOT
KOMPOT
KOMPOT
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
KOMPONG SPEU
DATE
12/6/XXX
12/19/XXX
12/17/XXX
12/31/XXX
12/31/XXX
1/20/XXX
2/13/XXX
2/14/XXX
2/14/XXX
2/14/XXX
2/14/XXX
2/6/XXX
2/12/XXX
2/5/XXX
2/7/XXX
1/22/XXX
1/28/XXX
1/20/XXX
1/20/XXX
1/10/XXX
1/10/XXX
1/11/XXX
1/2/XXX
1/3/XXX
1/15/XXX
1/16/XXX
1/20/XXX
1/20/XXX
1/21/XXX
1/22/XXX
1/28/XXX
1/6/XXX
1/11/XXX
1/1 /XXX
1/15/XXX
1/15/XXX
1/15/XXX
1/20/XXX
1/21/XXX
1/29/XXX
DEALER NAME
OUCH DANY
LY REASMEY
CHHAN CHIN
YUON CHAMROEUN
ENG SOPHAL
SAO PHARATH
NY NARY
PO TIHIN
PREAK SOMPHORS
DIN SOKHA
SOURN SOKHEA
OL SOKHEM
CHOC-UNG THYDA
CHOEM MALEAP
SENG SOKHIM
PHAN SINNARY
SAROEUN LEANGENG
LIM CHENG
KHIM SONA
VANN YEK HOUR
CHANN LEAP
EAM SOK KHEAN
NOCH CHOMNAN
SAROM SEYMA
NIM PHARY
HEM SAMNANG
LAY PHOEUN
SEK SREYMAO
NGIN CHANTHOU
KEUN ORMRA
EK KOEM HY
PENG PHKAY
KHEAV SOKKICH
KHEAV SAMBOI
MORN SARIN
LENG MOM
LY MOUY CHANG
CHY SREYROTH
POY KOEMSORN
HEL CHANN
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
XXX
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K
0K

代码

gawk '{col=42; ind=NR%(col); a[ind]=a[ind]","$1}END{for(i=1;i<col;i++)print a[i]}' infidel

,No,PHUORNG,XXX,KOMPOT,12/31/XXX,SAO,XXX,0K
,1,SIN,XXX,KOMPOT,1/20/XXX,NY,XXX,0K
,2,NGOUN,XXX,KOMPOT,2/13/XXX,PO,XXX,0K
,3,NGOUN,XXX,PREY,2/14/XXX,PREAK,XXX,0K
,4,NGOUN,XXX,PREY,2/14/XXX,DIN,XXX,0K
,5,NGERT,XXX,PREY,2/14/XXX,SOURN,XXX,0K
,6,VUN,XXX,PREY,2/14/XXX,OL,XXX,0K
,7,VUN,XXX,KOMPONG,2/6/XXX,CHOC-UNG,XXX,0K
,8,VUN,XXX,PORSENCHEY,2/12/XXX,CHOEM,XXX,0K
,9,VANN,XXX,PORSENCHEY,2/5/XXX,SENG,XXX,0K
,10,VANN,79,RUSSEY,2/7/XXX,PHAN,XXX,0K
,11,CHOEM,31,RUSSEY,1/22/XXX,SAROEUN,XXX,0K
,12,MEN,XXX,B.MEANCHEY,1/28/XXX,LIM,XXX,0K
,13,SOEUN,XXX,PREY,1/20/XXX,KHIM,XXX,0K
,14,SOEUN,XXX,PORSENCHEY,1/20/XXX,VANN,XXX,0K
,15,KONG,XXX,PORSENCI,1/10/XXX,CHANN,XXX,0K
,16,VI-JN,79,TBONG,1/10/XXX,EAM,XXX,0K
,17,CHOEM,XXX,TBONG,1/11/XXX,NOCH,XXX,0K
,18,CHOEM,XXX,TBONG,1/2/XXX,SAROM,XXX,0K
,19,VY,XXX,KRATIE,1/3/XXX,NIM,XXX,0K
,20,VY,XXX,KRATIE,1/15/XXX,HEM,XXX,0K
,21,VY,XXX,KRATIE,1/16/XXX,LAY,XXX,0K
,22,SON,XXX,KOMPOT,1/20/XXX,SEK,XXX,0K
,23,SON,XXX,KOMPOT,1/20/XXX,NGIN,XXX,0K
,24,SON,XXX,KOMPOT,1/21/XXX,KEUN,XXX,0K
,25,TOCH,XXX,KOMPOT,1/22/XXX,EK,XXX,0K
,26,DAN,XXX,KOMPOT,1/28/XXX,PENG,XXX,0K
,27,DAN,XXX,KOMPOT,1/6/XXX,KHEAV,XXX,0K
,28,DAN,XXX,KOMPONG,1/11/XXX,KHEAV,XXX,0K
,29,DAN,XXX,KOMPONG,1/1,MORN,XXX,0K
,30,DAN,XXX,KOMPONG,1/15/XXX,LENG,XXX
,31,E,XXX,KOMPONG,1/15/XXX,LY,XXX
,32,PHO,XXX,KOMPONG,1/15/XXX,CHY,XXX
,33,PHO,XXX,KOMPONG,1/20/XXX,POY,0K
,34,PHO,XXX,KOMPONG,1/21/XXX,HEL,0K
,35,PHO,XXX,KOMPONG,1/29/XXX,XXX,0K
,36,PHO,XXX,KOMPONG,DEALER,XXX,0K
,37,PHO,XXX,DATE,OUCH,XXX,0K
,38,PHO,LOCATION,12/6/XXX,LY,XXX,0K
,39,PHO,KOMPONG,12/19/XXX,CHHAN,XXX,0K
,40,ID,KOMPONG,12/17/XXX,YUON,XXX,0K

列转行：

gawk -F ',' '{ORS="";MAX=(NF>MAX)?NF:MAX;for(i=2;i<NF;i++){a[i]=a[i]","$i}}END{for(i=2;i<MAX;i++)print a[i]}'

结果

,No,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,PHUORNG,SIN,NGOUN,NGOUN,NGOUN,NGERT,VUN,VUN,VUN,VANN,VANN,CHOEM,MEN,SOEUN,SOEUN,KONG,VI-JN,CHOEM,CHOEM,VY,VY,VY,SON,SON,SON,TOCH,DAN,DAN,DAN,DAN,DAN,E,PHO,PHO,PHO,PHO,PHO,PHO,PHO,PHO,ID,222,217,217,217,326,247,247,247,245,268,79,31,373,373,282,247,79,258,258,258,399,399,399,221,409,409,409,409,409,348,408,408,408,408,408,408,408,408,LOCATION,KOMPONG,KOMPONG,KOMPOT,KOMPOT,KOMPOT,PREY,PREY,PREY,PREY,KOMPONG,PORSENCHEY,PORSENCHEY,RUSSEY,RUSSEY,B.MEANCHEY,PREY,PORSENCHEY,PORSENCI,TBONG,TBONG,TBONG,KRATIE,KRATIE,KRATIE,KOMPOT,KOMPOT,KOMPOT,KOMPOT,KOMPOT,KOMPOT,KOMPONG,KOMPONG,KOMPONG,KOMPONG,KOMPONG,KOMPONG,KOMPONG,KOMPONG,KOMPONG,DATE,12/6/2019,12/19/2019,12/17/2019,12/31/2019,1/20/2020,2/13/2020,2/14/2020,2/14/2020,2/14/2020,2/14/2020,2/6/2020,2/12/2020,2/5/2020,2/7/2020,1/22/2020,1/28/2020,1/20/2020,1/20/2020,1/10/2020,1/10/2020,1/11/2020,1/2/2020,1/3/2020,1/15/2020,1/16/2020,1/20/2020,1/20/2020,1/21/2020,1/22/2020,1/28/2020,1/6/2020,1/11/2020,1/1,1/15/2020,1/15/2020,1/15/2020,1/20/2020,1/21/2020,1/29/2020,DEALER,OUCH,LY,CHHAN,YUON,SAO,NY,PO,PREAK,DIN,SOURN,OL,CHOC-UNG,CHOEM,SENG,PHAN,SAROEUN,LIM,KHIM,VANN,CHANN,EAM,NOCH,SAROM,NIM,HEM,LAY,SEK,NGIN,KEUN,EK,PENG,KHEAV,KHEAV,MORN,LENG,LY,CHY,POY,HEL,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx,xxx