求助：怎么从A文件中提取第一列然后去B文件找对应的值

xunong

如题
假如A文件如下：              文件B：
ID ee fe jj                     ID  A  B   C  D
a   ,   f   .                      a   2  3   6   9
b   .  d  g                      c   1  5    7  12
c   2  /  4                      d   2  4   11  7
d   e  3  /                      e   1  2   3    7
f                                   h   
...                                ...
  

将A文件ID列提取出来，去B文件ID列找，如果有，就输出此ID及后面对应的4列数值到新文件 C

B文件里有些ID,A文件里没有不予考虑。只找A文件ID及对应的数值

清泉一边

可能需要改一下吧~

1. my %hash;
   
2. while (<B>){
   
3. my ($k,$v) = split,$_,2;
   
4. $hash{$k} = $v;
   
5. }
   
6. while (<A>){
   
7. chomp;
   
8. my ($name,$non) = split,$_,2;
   
9. print OUT "$name\t$hash{$name}\n" if exists $hash{$name};
   
10. }

复制代码

回复 1# xunong



   

xunong

或者用 awk 能不能直接实现呢？

求大神指教！

tslearner

use strict;
open (FH,"<","A.txt");
my @b;
while(<FH>){
        my @a=split(/ /,$_);
        push(@b,$a[0]);
}
my @b2;
open (FH2,"<","B.txt");
while(<FH2>){
        my @a=split(/ /,$_);
        my $it=grep (/^$a[0]$/, @b);
        if($it==1){
                push(@b2,$_);
        }
}
open (FH3,">","C.txt");
print(FH3 @b2);

旋转小马

直接存哈希就行了~~~

haoran0601

请问解决了么？怎么解决的

104359176

这是 Perl 6 版本的：

1. #!perl6
   
2. 
   
3. use v6;
   
4. 
   
5. my %hash-a = file-to-hash('A.txt');
   
6. my %hash-b = file-to-hash('B.txt');
   
7. 
   
8. my %filter-hash = filter-key(%hash-a, %hash-b);
   
9. say %filter-hash;
   
10. 
    
11. sub file-to-hash($file) {
    
12.   my @lines = $file.IO.lines;
    
13.   my %hash;
    
14.   for @lines -> $line {
    
15.     my @elems = $line.split(/\s+/);
    
16.     %hash{@elems[0]} = @elems[1..*];
    
17.   }
    
18.   return %hash;
    
19. }
    
20. 
    
21. sub filter-key (%hash-a, %hash-b) {
    
22.   my %hash-filter;
    
23.   for %hash-a.keys -> $key {
    
24.     if %hash-b{$key}:exist {
    
25.       %hash-filter{$key} = %hash-b{$key};
    
26.     }
    
27.   }
    
28.   return %hash-filter;
    
29. }
    
30. 
    

复制代码

ba_du_co

直接就行了

perl -ane 'print if $_[$F[0]]++' A.txt B.txt > C.txt

sunzhiguolu

回复 8# ba_du_co
大师, 您这个是个啥写法?

$_[$F[0]]++

moperyblue

1. awk 'NR==FNR&&FNR>1{a[$1]=1;next}a[$1]' A B > C

复制代码