求助：通过文件1中的内容在文件2中查找键，并输出其对应的值~

linghu002127

手上有2文件，内容如下：

file1

1. 1        A1
   
2. 2        A2
   
3. 3        A3
   
4. 4        A4
   
5. 5        A5
   
6. 5        B1
   
7. 7        B2
   
8. 8        B3
   
9. 9        B4
   
10. 10        B5
    
11. 11        C1
    
12. 12        C2
    
13. 13        C3
    
14. 14        C4

复制代码

file2

1. 4        3        5        7        11        9        1        6        10
   
2. 2        8        6        13        12        3        9        5        1
   
3. 7        14        10        6        1        5        8        12        4

复制代码

想根据file2中得每一行的数值去跟file1中第一列的数值做比较，如果相同，就输出file1中这个数值后边一列对应的字符。例如，file2第一行的第二个数3对应在file1中第3行，就输出A3.
最后完整的输出结果为：

1. A4        A3        A5        B2        C1        B4        A1        B1        B5
   
2. A2        B3        B1        C3        C2        A3        B4        A5        A1
   
3. B2        B3        B5        B1        A1        A5        B3        C2        A4

复制代码

linghu002127

谢谢~
看看书后基本解决了

afukada

1. open(input,"file1.txt");
   
2. chomp(@array=<input>);
   
3. %hash=map{split(/\t/)}@array;
   
4. close(input);
   
5. 
   
6. open(input,"file2.txt");
   
7. open(output,">out.txt");
   
8. 
   
9. while(<input>)
   
10. {
    
11.         chomp;
    
12.         s/(\d+)/$hash{$1}/eg;
    
13.         print output $_,"\n";
    
14. }
    
15. 
    
16. close(input);
    
17. close(output);

复制代码

x9x9

思路没有问题，就是稍麻烦了些~

1. use strict;
   
2. use warnings;
   
3. 
   
4. open FILEA,"<file1.txt" or die "$!";
   
5. open FILEB,"<file2.txt" or die "$!";
   
6. 
   
7. my %h;
   
8. 
   
9. while (<FILEA>) {
   
10. my ($cola,$colb)=split;
    
11. $h{$cola}=$colb;
    
12. };
    
13. 
    
14. while (<FILEB>) {
    
15. s/(\d+)/$h{$1}/g;
    
16. print;
    
17. }

复制代码

rubyish

回复 4# x9x9

1. s/(\d+)/$h{$1}/g;

复制代码

漂亮！！

shuijingfeijiji

回复 4# x9x9


    抱歉，这句s/(\d+)/$h{$1}/g;不太明白是什么意思 ，尤其$h{$1}

afukada

回复 6# shuijingfeijiji


    把括號裡面的值當成hash的key來求value
   
    然後再用value代換括號裡的值