作者krist99 (只爱Calvin Klein)
看板perl
标题Re: [问题] 请问骆马书第三章 习题第二题??
时间Thu Sep 30 01:09:01 2004
※ 引述《synth ( $)》之铭言：
: #!/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";
感谢上面两位大大指教^^
有问题我在发问^^
--
http://www.wretch.twbbs.org/album/krist ^^"
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.211.159