作者Keelungman (:3)
看板Perl
标题Re: [问题] 这几行程式能写乘一个回圈吗？
时间Fri Apr 24 22:19:20 2009
I cannot make sure WHAT you need
because you do not write a correct code!
If you have a long array looks like
@a=('a','e','t','h','c','d','t','h','h','y','y','d','x','y');
and you want to make finite length arrays @b~@f look loke
@b=('a','e','t','h','c');
@c=('e','t','h','c','d');
...
@f=('c','d','t','h','h');
You can write the code such like
@b=@a[0 .. 4];
@c=@a[1 .. 5];
...
@f=@a[4 .. 8];
You don't need any loop at all!!!
※ 引述《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;
: }
: 也就是说我想要新产生的阵列的内容是依序递增的。
: ex:
: @a="aethcdthhyydxyhcxfhfsghsfhgfjlgkfjgiffs..."
: @b="aethcdthhy"
: @c="ethcdthhyy"
: @d="thcdthhyyd"
: @e="hcdthhyydx"
: @f="cdthhyydxy"
: 请问在while里面（产生:@b~@f）是否可以写成一个回圈的型态呢？ 感谢<_ _>
--
在达文西过世四个月後，麦哲伦展开了人类历史上的首次环球航行。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 155.69.204.53