perl学习日记
时间：2009-01-08 来源：topgtian
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=<STDIN>); //去除输入中的回车
foreach (@read){ //取的输入值，打印出相对应的数组值，使用了默认变量$_
print "$name[$_]\n"};
名列表写入代码中）。例如，当输入为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=<STDIN>); //去除输入中的回车
foreach (@read){ //取的输入值，打印出相对应的数组值，使用了默认变量$_
print "$name[$_]\n"};
相关阅读 更多 +
