perl - 使用 perl 构建关键字树

Question

我想使用 perl 编程构造一个关键字树。这是示例，关键字“Apple，Apropos，Banana，Bandana，Orange”的关键字树看起来像这样。

这是我第一次使用 perl 在树上工作。此外，当我在 perl 中搜索关键字树时，我找不到足够的信息。我不期待完整的代码。只需说出执行任务的起点即可。这对我有很大帮助。

提前致谢。

Answer 1

这种数据结构通常被称为 trie，寻找它会产生Tree::Trie. 如果您正在寻找实现自己的想法的想法，也许可以查看源代码。

Answer 2

您可以对这个问题使用哈希引用，如下所示：

use strict;
use Data::Dumper;

my $tree = { 
    root => {
        a => { 
            p => { 
                p => 'etc' , 
                r => 'etc'
            }, 
        },
        b => { 
            a => 'etc' 
        },
        o => { 
            r => 'etc' 
        },
    },
};

print Dumper($tree);

或一些 CPAN 模块：http ://search.cpan.org/search?mode=all&query=tree