推 bxorw:感謝你的提醒...因為我剛接觸perl不久，還有之前的習慣= =/ 04/25 02:04
※ 引述《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