코퍼스의 블로그

예전에 Trie 관련해서 쉽게 쓸만한 모듈을 찾았었는데.. 최근에 CPAN에서 Tree:Trie 모듈이 새로 만들어져 올라왔다.
(아직까지도 CPAN은 매일 평균 5개의 모듈이 새로 올라온다고 한다...)

다행히 멀티랭귀지를 지원한다하여 시험하여 보았더니..간단한 시험은 무리없이 사용할 수 있을 것 같다.


#!/usr/bin/perl
use Tree::Trie;
use strict;

my $trie = new Tree::Trie;
$trie->add(qw[사람 사냥꾼 사슴 가자미 가재 가마 사재기 사계절
가마 가솔린 나무 나비 다다미 다슬기 사루만 가마꾼 나방]);

my(@all) = $trie->lookup("");
$" = "--";
print "@all\n";
print "<가>:\n";
my(@ga_s) = $trie->lookup("가");
print "@ga_s\n";
print "<가마>:\n";
my(@gama_s) = $trie->lookup("가마");
print "@gama_s\n";

시험결과는 아래와 같다.

다슬기--다다미--나무--나방--나비--사슴--사냥꾼--사람--사재기--사루만--사계절--가마--가마꾼--가솔린--가재--가자미
<가>:
가마--가마꾼--가솔린--가재--가자미
<가마>:
가마--가마꾼


이정도면 간단한 survey나 시험에는 쓸만한것 같다.^^