Индексирование каждого вхождения ключа в массив строк с perl

Question

У меня есть массив строк @Sentences, и я пытаюсь найти лучший способ индексировать каждое вхождение каждого слова относительно номера строки, в которой они находятся. Я решил сделать это с помощью вложенного цикла и двухмерного массива, но не повезло.

Answer 1

Если предположить, что слова разделяются пробелами (корректировать по мере необходимости)

my $index = {}; 
my $line=0; 
for my $s (@Sentences) 
{ 
    $line++; 
    for my $w (split $s) 
    { 
     push @{$index->{$w}},$line; 
    } 
} 

Это создает хеш, ключи которого слова и значения которых arrayrefs, содержащие списки номеров строк, в которых появляются эти слова.