兩個數(shù)據(jù)文件的篩選

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

想根據(jù)file1文件中的第一列在file2文件篩選出相應(yīng)的信息，并附帶file1文件的第二列信息：（期望的結(jié)果如下）
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

復(fù)制代碼

未測試

jason680

回復(fù) 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

復(fù)制代碼

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

復(fù)制代碼

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

復(fù)制代碼