用awk数组同时重定向到多个文件

richiewu

输入：
"01","1008","0","10080539"
"01","1013","X","10080539"
"03","1007","0","20110625"
"03","1076","X","20110625"

如果$4相同则认为是同一组，追加到首次出现$4的行中以$1_$2命名的文件

输出多个文件，文件名为$1_$2:
01_1008包含两行：
"01","1008","0","10080539"
"01","1013","X","10080539"

03_1007包含另外两行：
"03","1007","0","20110625"
"03","1076","X","20110625"

对awk数组不熟悉特求助


用了3#的方案awk -vFS='"|","' '{ if (!a[$5]) a[$5] = $2 "_" $3; print >> a[$5] }'

但如果要把所有第四列相同的行分别重定向到$2"_"$3命名的文件中呢
输出多个文件，文件名为$1_$2:
01_1008包含两行：
"01","1008","0","10080539"
"01","1013","X","10080539"

01_1013包含两行：
"01","1008","0","10080539"
"01","1013","X","10080539"

03_1007包含另外两行：
"03","1007","0","20110625"
"03","1076","X","20110625"

03_1076包含另外两行：
"03","1007","0","20110625"
"03","1076","X","20110625"

jason680

回复 1# richiewu

$ awk -F, -vq='"' '{s=$0;gsub(q,"");if(!c[$4]++){f[$4]=$1"_"$2};k=f[$4];a[k]=a[k]s"\n"}END{for(n in f){print "file:"f[n];printf  a[f[n]] >f[n]}}' FILE
file:03_1007
file:01_1008

$ grep . 03_* 01_*
03_1007:"03","1007","0","20110625"
03_1007:"03","1076","X","20110625"
01_1008:"01","1008","0","10080539"
01_1008:"01","1013","X","10080539"

   

MMMIX

回复 1# richiewu


    try this:

1. 
   
2. awk -vFS='"|","' '{ if (!a[$5]) a[$5] = $2 "_" $3; print >> a[$5] }'
   

复制代码

yinyuemi

回复 1# richiewu

1. awk -F, '!a[$4]++{f=gensub(/"/,"","g",$1"_"$2);b[$4]=f}{print >b[$4]}' OFS=, file
   

复制代码

tuyajie

这个思路不错。回复 3# MMMIX


   

richiewu

MMMIX 发表于 2015-08-10 23:16
回复 1# richiewu

但如果要把所有第四列相同的行分别重定向到$2"_"$3命名的文件中呢
输出多个文件，文件名为$1_$2:
01_1008包含两行：
"01","1008","0","10080539"
"01","1013","X","10080539"

01_1013包含两行：
"01","1008","0","10080539"
"01","1013","X","10080539"

03_1007包含另外两行：
"03","1007","0","20110625"
"03","1076","X","20110625"

03_1076包含另外两行：
"03","1007","0","20110625"
"03","1076","X","20110625"

MMMIX

[ 本帖最后由 MMMIX 于 2015-09-30 14:32 编辑 ]

[b]回复 [url=forum.php?mod=redirect&goto=findpost&pid=&ptid=4185213]6#[/url] [color=Olive]richiewu[/color] [/b]


    循环两遍就是了：

BEGIN {
    FPAT = "[0-9X]+"
}

{
    if ($4 in r) {
        n = length(r[$4][0])
        r[$4][0][n] = $1 "_" $2
        r[$4][1][n] = $0
    } else {
        r[$4][0][0] = $1 "_" $2
        r[$4][1][0] = $0
    }
}

END {
    for (i in r) {
        for (p in r[i][0]) {
            for (q in r[i][1]) {
                print r[i][1][q] >> "/tmp/" r[i][0][p]
            }
        }
    }
}

richiewu

回复 7# MMMIX


    谢谢，有空进一步学习下awk，目前只会些初级的
写了awk代码过一段时间自己都忘了什么意思