用perl写一个程序,读入一些数字(每行一个),直到文件结尾为止。然后根据...答: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 ...