使用perl對字符串數組中的每個鍵的索引進行索引

Question

我有一個字符串數組@Sentences，我試圖找到最佳方式來索引每個字的每個出現的相對於它們所在的行號。我想用嵌套for循環和2維數組來做到這一點，但沒有運氣。

Answer 1

假設詞語是空間分隔（根據需要進行調整）

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

這產生了散列的鍵是單詞和其值是含有其中這些單詞出現的行號的列表arrayrefs。