perl学习日记

perl入门

第三章

习题2：

写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名（下面列出的）输出来。（将下面的人
名列表写入代码中）。例如，当输入为1，2，4 和2，则输出的为fred, betty, dino, 和betty：
fred betty barney dino Wilma pebbles bamm-bamm

 

#!/usr/bin/perl

@name=qw'fred betty barney dino Wilma pebbles bamm-bamm'; //定义列表
unshift @name,4;                        //列表最前面加入任意数，以使得标量为1时，数组为fred
chomp(@read=);        //去除输入中的回车
foreach (@read){             //取的输入值，打印出相对应的数组值，使用了默认变量$_
print "$name[$_]\n"};