Question

用perl写一个程序,读入一些数字(每行一个),直到文件结尾为止。然后根据每一个数字输出相应的人名。

Answer 1

my $line;
my @AR=("","fred","stone","perl","button","arial","lone","help"); ##这里$AR[0]是空的
## @AR就是index和人名的对照数组。由于index是数字，用数组很合适，否则也可以用hash

open (FILE,$filename) || die "open file failed."
while ($line=<FILE>){
chomp $line;
if ( $line=~/^\d+$/ ){
print $AR[$line]."\n";
}
}

Answer 2

用哈希,数字作为键,人名作为值

追问

能否给个实例说明一下，感激不尽！

Answer 3

应该有一张数字对应人品的表吧

追问

例如数字是1-7，人名分别为fred、stone、perl、button、arial、lone、help