Perlで配列の添え字を抽出したい

質問

Perl初心者で、既出の質問かもしれませんが、ご教授願います。

以下のように"*"が入っている値を抽出する処理があります。

ーーーーーー処理ーーーーーー
@array = ('aaa', 'b*b', 'ccc', 'dd*');

foreach (@array) {
if ($_ =~/\*/) {
print "OK\n";
} else {
print "NG\n";
}
}
ーーーーーーーーーーーーーーーー

ーーー結果ーーー
NG
OK
NG
OK
ーーーーーーーー

＜質問＞
上記結果より、OKとなった値の配列(添え字)を取得するにはどのようにすれば宜しいでしょうか？

宜しくお願い致します。

回答No.1

toraneko75 · ベストアンサー

変数を設定して++してあげたらいいように思います。こんな感じです。

use strict;
use warnings;

my @array = ('aaa', 'b*b', 'ccc', 'dd*');
my $i=0;
foreach (@array) {
if ($_ =~/\*/) {
print 'OK',",$i\n";
} else {
print "NG\n";
}
$i++;
}