请教一个问题！如何实现文件间内容的提取。

lwenhack

两个文件：
两个文件第一列是对应的名字，从第二个文件，按照位置从第一个文件对应的位置提取值，生成如第三个文件的形式。

FILE1：

NAME1    A     B       C      D     E
NAME2    E     F       A      B      F
NAME3    E     D      A       D     G
……
FILE2:

NAME1     0     1
NAME2     
NAME3     2     3      4
……
得到结果如下形式
FILE3:

NAME1      0=>A     1=>B
NAME2      
NAME3      2=>A     3=>D     4=> G
……

yizhengming

1. #! /usr/bin/perl  -w
   
2. use strict;
   
3. open FD1, "file1";
   
4. my %hash;
   
5. while (<FD1>) {
   
6.     chomp;
   
7.     my @tmp = split;
   
8.     $hash{ $tmp[0] } = [@tmp[1..$#tmp]];
   
9. }
   
10. open FD2, "file2";
    
11. open FD3, ">file3";
    
12. while (<FD2>) {
    
13.     my $name;
    
14.     while (not /\G\z/gc) {
    
15.         if (/\G(name\d+)/gci and $name = $1) {print FD3 $name}
    
16.         elsif (/\G(\s+)/gc)  {print FD3 $1}
    
17.         elsif (/\G(\d+)/gc) {print FD3 "$1=>$hash{ $name }->[$1]"}
    
18.     }
    
19. }
    

复制代码

kk861123

回复 1# lwenhack

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open my $fh1, "<", $file1 or die($!);
   
6. open my $fh2, "<", $file2 or die($!);
   
7. 
   
8. my %hash;
   
9. while (<$fh1>) {
   
10.     my ($name,@array) = split;
    
11.     $hash{$name}->{array} = [ @array ];
    
12. }
    
13. 
    
14. while (<$fh2>) {
    
15.     my ($name,@index) = split;
    
16.     $hash{$name}->{index} = [ @index ];
    
17. }
    
18. close($fh1);
    
19. close($fh2);
    
20. 
    
21. foreach my $name ( sort keys %hash ) {
    
22.     print join("\t", $name,
    
23.               map { "$_ => $hash{$name}{array}[$_]" }
    
24.                  @{ $hash{$name}{index} }
    
25.               ), "\n";
    
26. }

复制代码

lwenhack

3楼正解，呵呵，谢谢！帮我大忙了。
2楼的也非常好。非常谢谢！

wbadyx

map，hash的数组，向各位学习了。