awk两个文本比较

shrimpj

各位大神小女子又有一事请教，还是两个文本比较，这次我需要用file1中的索引删除file2对应的列

file1 文件长度不一，范围为1-13
3
5
7

file2 3行26列数组

0 0 3.2 4.3 5.3 ... -4.5
0 0 1.2 -9.1 -7.4   ...  6.7
0 0 7.8 -8.2 0.2 ... 6.4

如此例file1里有3，5，7，那我希望删除file2的3，5，7列
我的想法是把file1放在数组里，然后我想知道怎么匹配$3,$5,$7当我执行第二个文件的时候

awk 'NR==FNR {for(i=1;i<=NR;i++){a[i]=$1;next}} NR>FNR{for(k in a){$a[k]=null; print $0}}' file1 file2

这里的$a[k]我是希望把a数组中存储的index 3，5，7读出来，然后让file2识别为第三到第七列这样$3,$5,$7；但我这样的表达式错误的，怎么办啊大神们，求各位不吝赐教！！！！

cao627

awk 'NR==FNR {a[$1];next}{for(k in a){$k=null}}1' file file1

shrimpj

回复 3# 时时20160307
大神你太强了，感激不尽，但是问题是删除的部分就会多出来空格，这样的空格有办法删掉么？我试着用null代替空格，不对，请大神不吝赐教！！！感激不尽


   

shrimpj

回复 3# 时时20160307

换成undef也没用啊，我看了一下perl的语法 求助


   

shrimpj

回复 3# 时时20160307

我用sed ‘s/  */ /g’通道可以正确输出，但我知道perl肯定可以直接输出没有空格的结果，大神教我一下好不好，感激不尽


   

elu_ligao

回复 4# shrimpj


    你是要用null 代替就null 加上双引号， null -> "null"
    如果是不要留出空格之类的， 即比如原来是有26列， 然后你要删除这3列后变成23列，试试

1. awk 'NR==FNR{a[$1]++;next}{for(i=1;i<=NF;++i)if(!a[$i])printf $i FS;print ""}' file1 file2

复制代码

toddhai

回复 7# elu_ligao

1. if(!a[$i])应该改成if(!a[i])吧

复制代码

elu_ligao

回复 9# toddhai

1.    谢谢指点， 应该是!a[i], 多了个$

复制代码