※ 引述《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
@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';