使用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，其中出现这些单词。