作者kornelius (c9s)
看板Perl
标题Re: [问题] 阵列藉由索引取值
时间Sun Mar 14 12:24:53 2010
@array = 'a' .. 'z';
for($i=0,$item= $array[$i] ; $item = $array[$i]; $i++ ) {
$index = $i if $item =~ /[a-c]/;
}
或是
$i=0;
map { $index = $i if $_ =~ /[a-g]/; $i++; } 'a' .. 'z';
※ 引述《asdfgh00 (陆)》之铭言：
: @array = (a, 1, 2, 3, b, 4, 5, 6);
: 我希望能找出英文字母的索引位置
: 然後印出之後的数字直到碰到下一个英文字母
: foreach $item(@array){
: if ($item =~ /[a-z]/){
: $indeX = \$item; #取得索引
: }
: 这样是有索引了，但是索引值都是SCALAR(0x1907cd4)这种型态的
: 直接加1也印不出东西Q"Q
: 请问要如何抓下一笔的资料呢?
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.229.24.37