怎么筛选数据呢

newfinder

有两个文件，content.txt

0 BAC-11602        0        0  
0 BAC-13205        0        0  
0 BAC-19353        0        0  
0 BAC-27150        0        0  
0 BAC-27427        0        0  
0 BAC-3012        0        0  
0 BAC-31012        0        0  
0 BAC-33662        0        0  
0 BAC-35028        0        0  
0 BAC-3582        0        0  
0 BAC-35948        0        0  
0 NGS-100012        0        0
0 NGS-100232        0        0
0 NGS-100341        0        0
0 NGS-100372        0        0

另一个文件name.txt
BAC-27427       
BAC-3012       
BAC-31012       
BAC-33662       
BAC-35028       
BAC-3582       
想根据name.txt对content.txt筛选，结果如下，newfile.txt

0 BAC-27427        0        0
0 BAC-3012        0        0
0 BAC-31012        0        0
0 BAC-33662        0        0
0 BAC-35028        0        0
0 BAC-3582        0        0
请教大侠们如何实现呢？

cinanine

1. #!/usr/bin/perl
   
2. # use 5.010;
   
3. open my $NAM, 'name.txt';
   
4. open my $CON, 'content.txt';
   
5. open my $NEW, '>', 'newfile.txt';
   
6. my %name = map { /^(\S+)/, 1 } <$NAM>;
   
7. map { $name{ (split)[1] } and print $NEW $_ } <$CON>;

复制代码