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

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

2025-03-13 21:01:50

推荐回答（3个）

回答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=){
chomp $line;
if ( $line=~/^\d+$/ ){
print $AR[$line]."\n";
}
}

回答2：

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

回答3：

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