两个数据文件的筛选

gooderpan

有一个文件file1（tab分隔）：
XL02    AFP
XL03    DFH
XL05    ABC
XL07    CVB

另一个文件file2（tab分隔）：
XL01    3    2    a
XL02    3    1    b
XL03    2    3    C
XL04    1    2    d
XL05    5    8    s
XL06    4    3    w
XL07    3    5    a
XL08    5    3    f
XL09    3    6    w

想根据file1文件中的第一列在file2文件筛选出相应的信息，并附带file1文件的第二列信息：（期望的结果如下）
XL02    AFP    3    1    b
XL03    DFH    2    3    C
XL05    ABC    5    8    s
XL07    CVB    3    5    a

求各位大神们帮忙！谢谢啦！

haooooaaa

1. awk 'NR==FNR{a[$1]=$0;next}a[$1]{$1=a[$1]}1' file1 file2

复制代码

未测试

jason680

回复 1# gooderpan

$ awk -vOFS='\t' 'NR==FNR{k=$1;$1="";a[k]=$0;next}{$2=$2 a[$1]}1' file2 file1
XL02        AFP        3        1        b
XL03        DFH        2        3        C
XL05        ABC        5        8        s
XL07        CVB        3        5        a

   

zl624867243

1. join file1 file2

复制代码

fh21_xuejinlian

awk 'NR==FNR{a[$1]=$2;b[$1]++;next}b[$1]{a[$1]=a[$1]" "$2" "$3" "$4}END{for(i in a)print i, a[i]}' file1 file2

moperyblue

1. sed -r '1{x;s/.*/cat file1/e;x};G;/(\S+\b)(.*)\n(\1[^\n]*)/{s//\3\2/;P};d' file2
   
2. sed -r '1{x;s/.*/cat file1/e;x};G;s/(\S+\b)([^\n]*).*\n(\1[^\n]*).*/\3\2/p;d' file2

复制代码

sunzhiguolu

1. perl -anle 'if(@ARGV){$h{$F[0]}=$F[-1];next}print "$F[0] $h{$F[0]} @F[1..$#F]" if(exists($h{$F[0]}))' a b

复制代码