文件有部分重复，求大侠们帮忙

zero_BX

fileA:
X    1    A    1
N    1    A    1-2
X    1    B    1-2
X    2    C    2

fileB:
2    20    b    Y
2    20    b    X
1    10    a    Y
1    10    b    Y
1    20    a    Y
3    30    c    Y

自己有类似上边的两个文件，想根据黄色标记的ID合并两个文件然后提取指定的列，仍然按照fileA的顺序。如果提取ID对应的值一样就一行输出，不一样就分多行输出。
一些ID有重复，对应的值也不一样啊啊，不知道怎么办才好了，求大侠们帮帮忙

1    A    1    10    a
1    A    1    10    b
1    A    1    20    a
1    A   1-2   10    a
1    A   1-2   10    b
1    A   1-2   20    a
1    B   1-2   10    a
1    B   1-2   10    b
1    B   1-2   20    a
2    C    2    20     b

Okelani

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. @ARGV = qw/fileA fileB/;
   
5. my $String_fileA = shift;
   
6. my ( %Hash_key_string_value_array_of_string_fileB,
   
7.     %Hash_key_string_value_hashref_key_string_value_hashref_key_string_value_int_fileBFilter
   
8. );
   
9. 
   
10. while (<>) {
    
11.     my ( $String_one, $String_two, $String_three ) = split;
    
12.     push @{ $Hash_key_string_value_array_of_string_fileB{$String_one} },
    
13.       join "\t", $String_two, $String_three
    
14.       unless
    
15.       $Hash_key_string_value_hashref_key_string_value_hashref_key_string_value_int_fileBFilter{
    
16.         $String_one}{$String_two}{$String_three}++;
    
17. 
    
18. }
    
19. 
    
20. @ARGV = $String_fileA;
    
21. while (<>) {
    
22.     chomp;
    
23.     my ( undef, $String_two, $String_three, $String_four ) =
    
24.       split /\s+/;
    
25. 
    
26.     next unless $Hash_key_string_value_array_of_string_fileB{$String_two};
    
27. 
    
28.     for ( @{ $Hash_key_string_value_array_of_string_fileB{$String_two} } ) {
    
29.         say $String_two, "\t", $String_three, "\t", $String_four, "\t", $_;
    
30.     }
    
31. }
    
32. 
    

复制代码