Perl 初心者コーナー Part23

[0491 nobodyさん 03/05/28 00:55 ID:???]

>>490

my $count;
my %temp = map { $_, $count ++ } @array;
@result = @temp{grep { /an/ } @array};

こんな感じかなー。インクリメントのあたりが怪しいけど。