请教整合三个文件

zero_BX

各位大神，我有三个文件，现在想整合为一个，

文件1:  第一列没有重复
A1        1        1        1        1
A2        1        1        1        1
D1        1        1        1        1

文件2:  有关系对的重复
1        A1
1        A1
2        A1
3        A1
3        A2
4        A2
1        A2
1        D1
1        D1

文件3:  没有重复
1        1.1
3        3.1
2        2.1

现在我想根据文件1的第一列，从文件2，3获取对应的值，添加在最后一列

求指教！非常感谢！

Okelani

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. 
   
5. my @ARRAY_STRING_Files_Name = qw/NewDocument document1 document2 document3/;
   
6. 
   
7. open my $FILEHANDLE_NewDocument, '>', $ARRAY_STRING_Files_Name[0]
   
8.   or die "Could not create file [ $ARRAY_STRING_Files_Name[0] ] $!";
   
9. open my $FILEHANDLE_document1, '<', $ARRAY_STRING_Files_Name[1]
   
10.   or die "Could not open file [ $ARRAY_STRING_Files_Name[1] ] $!";
    
11. open my $FILEHANDLE_document2, '<', $ARRAY_STRING_Files_Name[2]
    
12.   or die "Could not open file [ $ARRAY_STRING_Files_Name[2] ] $!";
    
13. open my $FILEHANDLE_document3, '<', $ARRAY_STRING_Files_Name[3]
    
14.   or die "Could not open file [ $ARRAY_STRING_Files_Name[3] ] $!";
    
15. 
    
16. my %HASHTABLE_STRING_id_STRING_idalia =
    
17.   map {
    
18.     my ( $STRING_ID, $STRING_alia ) = split;
    
19.     $STRING_ID => "$STRING_ID,$STRING_alia;"
    
20.   } <$FILEHANDLE_document3>;
    
21. 
    
22. close $FILEHANDLE_document3;
    
23. 
    
24. # %HASHTABLE_STRING_id_STRING_idalia
    
25. # ( "2" => "2,2.1;", "3" => "3,3.1;", "ID" => "ID,alia;", "1" => "1,1.1;" )
    
26. 
    
27. my %HASHTABLE_STRING_Symbol_STRING_idalia;
    
28. my %HASHTABLE_STRING_Symbol_REFERENCE_HASHTABLE_STRING_Id_INTEGER_count;
    
29. 
    
30. while (<$FILEHANDLE_document2>) {
    
31.     my ( $STRING_id, $STRING_symbol ) = split;
    
32. 
    
33.     next if not exists $HASHTABLE_STRING_id_STRING_idalia{$STRING_id};
    
34. 
    
35.     if (
    
36.         !$HASHTABLE_STRING_Symbol_REFERENCE_HASHTABLE_STRING_Id_INTEGER_count{
    
37.             $STRING_symbol}{$STRING_id}++ )
    
38.     {
    
39.         $HASHTABLE_STRING_Symbol_STRING_idalia{$STRING_symbol} .=
    
40.           $HASHTABLE_STRING_id_STRING_idalia{$STRING_id};
    
41.     }
    
42. }
    
43. 
    
44. close $FILEHANDLE_document2;
    
45. 
    
46. # %HASHTABLE_STRING_Symbol_STRING_idalia
    
47. # ( A1 => "1,1.1;2,2.1;3,3.1;", A2 => "3,3.1;1,1.1;", symbol => "ID,alia;", D1 => "1,1.1;" )
    
48. 
    
49. # %HASHTABLE_STRING_Symbol_REFERENCE_HASHTABLE_STRING_Id_INTEGER_count
    
50. # ( D1 => { '1' => 2 }, symbol => { 'ID' => 1 }, A2 => { '1' => 1, '3' => 1 }, A1 => { '3' => 1, '2' => 1, '1' => 2 } )
    
51. 
    
52. chomp( my $STRING_document1_firstline = <$FILEHANDLE_document1> );
    
53. 
    
54. # $STRING_document1_firstline
    
55. # "Symbol        A                B        C        D"
    
56. 
    
57. say $FILEHANDLE_NewDocument $STRING_document1_firstline, "\t", 'V';
    
58. 
    
59. while (<$FILEHANDLE_document1>) {
    
60.     chomp;
    
61.     my ($STRING_symbol) = split;
    
62. 
    
63.     say $FILEHANDLE_NewDocument $_, "\t",
    
64.       $HASHTABLE_STRING_Symbol_STRING_idalia{$STRING_symbol} // '';
    
65. }
    
66. 
    
67. close $FILEHANDLE_document1;
    
68. close $FILEHANDLE_NewDocument;
    
69. 
    
70. # NewDocument
    
71. #Symbol        A                B        C        D        V
    
72. #A1        1        1        1        1        1,1.1;2,2.1;3,3.1;
    
73. #A2        1        1        1        1        3,3.1;1,1.1;
    
74. #D1        1        1        1        1        1,1.1;
    
75. 
    
76. say '久等啦！', "\n", join( ', ', @ARRAY_STRING_Files_Name[ 1, 2, 3 ] ),
    
77.   "\n", '已整合为 ',
    
78.   $ARRAY_STRING_Files_Name[0];
    
79. 
    
80. 
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @args = splice(@ARGV, 0, 2);
   
6. my %hPairs = ();
   
7. while(<>){        #Load data from File.c
   
8.         my ($id, $alia) = split;
   
9.         $hPairs{$id} = "$id,$alia";
   
10. }
    
11. 
    
12. @ARGV = pop(@args);
    
13. my %hRelated = ();
    
14. while(<>){        #Load data from File.b
    
15.         my ($id, $symbol) = split;
    
16.         next if(!exists($hPairs{$id}));
    
17.         $hRelated{$symbol}{$id}++;
    
18. }
    
19. 
    
20. foreach my $symbol (keys %hRelated){
    
21.         my @aT = map {$hPairs{$_}} keys %{$hRelated{$symbol}};
    
22.         delete($hRelated{$symbol});
    
23.         $hRelated{$symbol} = join(';', @aT, '');
    
24. }
    
25. 
    
26. @ARGV = @args;
    
27. while(<>){        #Print related data line from File.a
    
28.         chomp;
    
29.         my $symbol = $1 if(/\A(\S+)/);
    
30.         next if(!exists($hRelated{$symbol}));
    
31.         print("$_\t$hRelated{$symbol}\n");
    
32. }
    

复制代码

sunzhiguolu

head a b c
==> a <==
A1        1        1        1        1
A2        1        1        1        1
D1        1        1        1        1

==> b <==
1        A1
1        A1
2        A1
3        A1
3        A2
4        A2
1        A2
1        D1
1        D1

==> c <==
1        1.1
3        3.1
2        2.1

寻蝉林子

参考shell 的join命令很容易且高效