求助:A文本通过条件B文本进行帅选生成结果

僵尸

A.TXT
ID,NAME
A003,ONE
A004,OIIE
A003,WEEW
A008,IIEW
A004,AAE
A008,XDS4

B.TXT
ID
A003
A008


我想得到结果是
ID,NAME
A003,ONE
A003,WEEW
A008,IIEW
A008,XDS4

哪位朋友有空帮忙看看,谢谢

pitonas

{:2_172:}

1. open B, 'b.txt';
   
2. my %b = map { chomp; $_, 1 } <B>;
   
3. while (<DATA>) {
   
4.     my ($key) = split /,/;
   
5.     print if exists $b{$key};
   
6. }
   
7. __DATA__
   
8. ID,NAME
   
9. A003,ONE
   
10. A004,OIIE
    
11. A003,WEEW
    
12. A008,IIEW
    
13. A004,AAE
    
14. A008,XDS4

复制代码

xiumu2280

看到楼主12年7月就在论坛问问题。
而且问题和这个很像
到现在还不会写这个···

以至于我感觉自己是不是穿越了
或者没明白楼主深层次的含义···

但更不想写代码解决了

僵尸

回复 3# xiumu2280


    我自己已经弄了两天了...上个求助后来也是我自己解决的...

kggg

回复 2# pitonas


open(A, a) or die;
open (B, b) or die;

#my @v =  <B>;
for (<A>){
   my @key = split /,/;
   #print if(grep { /\Q$key[0]/; } @v);
   print if(grep { /\Q$key[0]/; } <B>);
}

close A;
close B;

上面代码中直接用<B>不行, 一定要转换成列表@v,  知道是什么原因吗

pitonas

<B> 一次读完了{:2_172:}

kggg 发表于 2014-01-25 10:43
回复 2# pitonas

yestreenstars

1. perl -F, -lane 'BEGIN{chomp(@a=`cat b`)};print if $F[0] ~~ @a' a
   
2. ID,NAME
   
3. A003,ONE
   
4. A003,WEEW
   
5. A008,IIEW
   
6. A008,XDS4

复制代码

moperyblue

1. awk -F, 'NR==FNR{if(NR>1)a[$1]=1;next}a[$1]||FNR==1' B.TXT A.TXT

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($once, $rh) = (0, {});
   
6. while (<>){
   
7.     next if (/\AID/);
   
8.     my ($id, $str) = split /[,\n]/;
   
9.     if (@ARGV){
   
10.         $rh->{$id} = 1;
    
11.         next;
    
12.     }
    
13.     if ($rh->{$id}){
    
14.         print "ID,NAME\n" if (!$once++);
    
15.         print;
    
16.     }
    
17. }

复制代码

perl abc.pl b a
-----------------------------
ID,NAME
A003,ONE
A003,WEEW
A008,IIEW
A008,XDS4