Re: [問題] 請問駱馬書第三章 習題第二題??
#!/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
討論串 (同標題文章)