作者kornelius (c9s)
看板Perl
标题Re: [问题] 这几行程式能写乘一个回圈吗？
时间Sat Apr 25 02:02:39 2009
※ 引述《bxorw (每天保持微笑)》之铭言：
: 我有一个原始的@a，长度500
: 我想要产生5个不同的阵列，而其内容值为@a内容1~50
: 我的写法...
: $count=0;
: while ($count < 10){
: @b=@a[$count-9...$count];
: @c=@a[$count-8...$count+1];
: @d=@a[$count-7...$count+2];
: @e=@a[$count-6...$count+3];
: @f=@a[$count-5...$count+4];
: $count+=1;
: }
(笑) 不要忘记你现在是写 perl , not c code. :)
不需要这麽辛苦去 $count 呀 for ( 0 .. 10 ) { ... }
另外若是要做 list 的抽取，你也可参考 splice function
perldoc -f splice
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.117.168.163
1F：推 bxorw:感谢你的提醒...因为我刚接触perl不久，还有之前的习惯= =/ 04/25 02:04