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

清泉一边

可能需要改一下吧~

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