请大神指点代码！小白谢

zero_BX

文件有两个，需要从第一个文件提取信息来替换第二个文件的内容：
一：
A    aa    1
C    cc    1
B    bb    1
二：
@A
123
4
5
@B
12345
@D
1
2


得到
@aa
123
4
5
@bb
12345

下面是我写的代码，但得到的结果总是不对，求大神指点啊

1. my %H;
   
2. while(<DATA>){
   
3.         chomp;
   
4.         my ($ID,$sign) = (split/\t/,$_)[0,1];
   
5.         $H{$ID}= $sign;
   
6. }
   
7. 
   
8. my $flag=0;
   
9. while (<DATA>) {
   
10.         chomp;
    
11.         my $name;
    
12.         if(/^@/){
    
13.                 $name=(split/\s+/,$_)[0];
    
14.                 $flag = exists $H{$name} ? 1:0;
    
15.         }
    
16.         print "$_\n" if $flag==0;
    
17. }
    
18. 
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $id = '';
   
6. my %hData = ();
   
7. 
   
8. while(<>){
   
9.     my @aT = split;
   
10.     if(@aT % 2){
    
11.         /\A\@(.)/ ? ($id = $1) : ($hData{$id} .= $_);
    
12.         next;
    
13.     }
    
14.     next if(!exists($hData{$aT[0]}));
    
15.     print("\@$aT[-1]\n", $hData{$aT[0]});
    
16. }
    

复制代码

perl abc.pl b a

zero_BX

回复 2# sunzhiguolu

谢谢指点。您的代码里如果id有多列，好像会报错。还有能否指点本人的代码，多谢了！

sunzhiguolu

回复 3# zero_BX

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %H;
   
6. while(<DATA>){
   
7.     last if(/\A\s*\z/);
   
8.     my ($ID,$sign) = (split)[0,1];
   
9.     $H{$ID}= $sign;
   
10. }
    
11. 
    
12. my $flag = 0;
    
13. while(<DATA>){
    
14.     if(/\A\@(\S+)/){
    
15.         $flag = exists($H{$1}) ? 1 : 0;
    
16.         print("\@$H{$1}\n") if($flag);
    
17.         next;
    
18.     }
    
19.     next if(!$flag);
    
20.     print;
    
21. }
    
22. 
    
23. __DATA__
    
24. A    aa    1
    
25. C    cc    1
    
26. B    bb    1
    
27. 
    
28. @A
    
29. 123
    
30. 4
    
31. 5
    
32. @B
    
33. 12345
    
34. @D
    
35. 1
    
36. 2
    

复制代码

perl abc.pl
@aa
123
4
5
@bb
12345

rubyish

回复 1# zero_BX

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. my %H;
   
4. open my $DATA, 'A';
   
5. #while (<DATA>) {
   
6. while (<$DATA>) {
   
7. 
   
8.     #chomp;
   
9.     #my ( $ID, $sign ) = ( split /\t/, $_ )[ 0, 1 ];
   
10.     my ( $ID, $sign ) = split;
    
11. 
    
12.     $H{$ID} = $sign;
    
13. }
    
14. 
    
15. my $flag = 0;
    
16. open my $DATB, 'B';
    
17. 
    
18. #while (<DATA>) {
    
19. while (<$DATB>) {
    
20. 
    
21.     #chomp;
    
22.     #my $name;
    
23.     if (/^@/) {
    
24. 
    
25.         #$name=(split/\s+/,$_)[0];
    
26.         my ($name) = /^@(\S+)/;
    
27.         $flag = exists $H{$name} ? 1 : 0;
    
28.         say '@', $H{$name} if $flag;
    
29.     }
    
30.     else {
    
31.         #print "$_\n" if $flag==0;
    
32.         print if $flag;
    
33.     }
    
34. }
    

复制代码

1. 
   

复制代码