作者BuriBuri (不理不理左卫门)
看板perl
标题Re: [问题] 请问骆马书第三章 习题第二题??
时间Wed Sep 29 18:45:19 2004
※ 引述《krist99 (只爱Calvin Klein)》之铭言：
: 小弟是新手~~
: 最近在看骆马书~~
: 问题如下~~
: 写一之程式,读入一串数值(每列一个),直到档案截尾为止.然後根据每一个号码,
: 从以下串列中印出相对应的人名.(请将这串人名逐制到程式里;也就是说,你的程
: 式码里应该出现这些人名.)举例来说,假如输入的数字是1,2,4,2 输出的人名会
: 是fred betty dino betty.
: 人名:fred betty barney dino wilma pebbles bamm-bamm
: 附上我的程式码~~感谢各位大大orz
: qw(fred betty barney dino wilma pebbles bamm-bamm);
: print"1.fred 2.betty 3.barney 4.dino 5.wilma 6.pebbles 7.bamm-bamm\n";
: print"please select persons:";
: @n=<STDIN>;
: $n=@n;
: for($i=1,$i<=$n,$i++){
控制结构写错，应该是for($i=1;$i<=$n;$i++)，而且一般习惯用foreach
: print $_[$n-1];
哪来的$_？你大概弄错了这个变数的定义
: }
#!/usr/bin/perl
@list=qw(fred betty barney dino wilma pebbles bamm-bamm);
print "1.fred 2.betty 3.barney 4.dino 5.wilma 6.pebbles 7.bamm-bamm\n";
print "please select persons:";
@n=<STDIN>;
foreach(@n){
print "$list[$_ - 1]\n";
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.165.216.108