regex - 使用 perl 索引字符串数组中每个出现的键

Question

我有一个字符串数组@Sentences，我试图找到最好的方法来索引每个单词的每次出现相对于它们所在的行号。我想用嵌套的 for 循环和二维数组来做到这一点，但没有运气。

Answer 1

假设单词是空格分隔的（根据需要调整）

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

这将创建一个哈希，其键是单词，其值是 arrayrefs，其中包含出现这些单词的行号列表。