Initial commit

[wordring-tm/wordring-tm.git] / third_party / mecab-0.996 / tests / t9 / ipadic.pl

#!/usr/bin/perl

# ¤ä¤Ü¤Ã¤¿¤¯¤Ã,47,47,5026,·ÁÍÆ»ì,¼«Î©,*,*,·ÁÍƻ졦¥¢¥¦¥ªÃÊ,Ï¢ÍÑ¥ÆÀܳ,¤ä¤Ü¤Ã¤¿¤¤,¥ä¥Ü¥Ã¥¿¥¯¥Ã,¥ä¥Ü¥Ã¥¿¥¯¥Ã

while (<>) {
    chomp;
    my @l = split /,/, $_;
    print "1\t", $l[11], "\n";
}