作者synth ( $)
看板perl
标题Re: [问题] 请问骆马书第三章 习题第二题??
时间Thu Sep 30 00:25:29 2004
#!/usr/bin/perl
my @names=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:";
my @ent=split /,/,<>;
for (@ent)
{
print $names[$_-1]," ";
}
print "\n";
※ 引述《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++){
: print $_[$n-1];
: }
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.66.1.123