初学求助：数组与哈希的问题

jjwjack

ex1.txt:
1        apple
2        pear
3        banana

ex2.txt:
1        2        3

我要先打开ex1.txt ，把其中的1 2 3作为键，apple pear banana作为值，存入一个哈希，再打开ex2.txt，把其中的1 2 3换成哈希中对应的值apple pear banana，写入一个新的文本文件。我的想法是先将ex1.txt存入一个数组，将其中的制表符和回车符去掉，
生成一个以数字为键，水果为值的哈希，然后读取ex2.txt的数字，替换成对应的值。但是不知道代码如何具体编写，希望大家帮忙
，谢谢！

jason680

回复 1# jjwjack

$ perl fruit.pl

$ cat out.txt
apple   pear   banana

$ cat fruit.pl

use strict;
use warnings;

my $sFile1 = "ex1.txt";
my $sFile2 = "ex2.txt";
my $sFile_out = "out.txt";

open(my $FH1,   "<", $sFile1) or die "can't open $sFile1\n";
open(my $FH2,   "<", $sFile2) or die "can't open $sFile2\n";
open(my $FHout, ">", $sFile_out) or die "can't open $sFile_out\n";

my %hFruit;

# read file1 and creat hash data
while(<$FH1>){
  next if(m/^\s*$/);
  chomp;
  my($sKey, $sFruit) = split;
  $hFruit{$sKey} = $sFruit;
}

# read file2 and output to file
while(<$FH2>){
  # replace the number to fruit
  s/(\S+)/exists $hFruit{$1}?$hFruit{$1}:$1/ge;

  print {$FHout} $_;
}

   

jjwjack

多谢！昨天看到了，能够运行，研究了一下代码，有些地方还不明白，我先查一下吧！ 回复 2# jason680