Text::CaboCha - Alternate Interface To libcabocha
use utf8;
use Encode;
use Text::CaboCha;
my $cabocha = Text::CaboCha->new({
output_format => $output_format,
input_layer => $input_layer,
output_layer => $output_layer,
ne => $ne,
parser_model => $parser_model_file,
chunker_model => $chunker_model_file,
ne_model => $ne_tagger_model_file,
posset => $posset,
charset => $encode,
charset_file => $charset_file,
rcfile => $cabocha_rc_file,
mecabrc => $mecab_rc_file,
mecab_dicdir => $mecab_dicdir,
mecab_userdic => $mecab_userdic,
output => $output_file
});
my $text = encode(Text::CaboCha::ENCODING, "太郎は次郎が持っている本を花子に渡した。");
my $tree = $cabocha->parse($text);
$tree->tostr(Text::CaboCha::CABOCHA_FORMAT_TREE); # You can check the tree.
my $token_size = $tree->token_size;
my $cid = 0;
for (my $i = 0; $i < $token_size; $i++) {
my $token = $tree->token($i);
if ($token->chunk) {
printf("* %d %dD %d/%d %f\n",
$cid++,
$token->chunk->link,
$token->chunk->head_pos,
$token->chunk->func_pos,
$token->chunk->score);
printf("%s\t%s\t%s\n",
$token->surface,
$token->feature,
$token->ne ? $token->ne : "O");
}
}
printf("EOS\n");
# use constants
use Text::CaboCha qw(:all);
use Text::CaboCha qw(CABOCHA_FORMAT_TREE);
# check what cabocha version we compiled against?
print "Compiled with ", Text::CaboCha::CABOCHA_VERSION, "\n";
This module was created with reference to Text::MeCab.
Text::CaboCha gives you a more natural, Perl-ish way to access libcabocha!
You can get to the result of running eg/benchmark.pl.
Rate cabocha text_cabocha text_cabocha_each
cabocha 17.2/s -- -27% -29%
text_cabocha 23.5/s 36% -- -3%
text_cabocha_each 24.2/s 40% 3% --
Creates a new Text::CaboCha instance.
You can either specify a hashref and use named parameters, or you can use the
exact command line arguments that the cabocha command accepts.
Below is the list of accepted named options. See the man page for cabocha for
details about each option.
- output_format
- input_layer
- output_layer
- ne
- parser_model
- chunker_model
- ne_model
- posset
- charset
- charset_file
- rcfile
- mecabrc
- mecab_dicdir
- mecab_userdic
- output
Parses the given text via CaboCha::Parser, and returns a Text::CaboCha::Tree object.
Parses the given Text::MeCab::Node via CaboCha::Parser, and returns a Text::CaboCha::Tree object.
The version number, as returned by libcabocha's CaboCha::Parser::version()
-
ENCODING
my $encoding = Text::CaboCha::ENCODINGReturns the encoding of the underlying cabocha library that was detected at compile time.
-
CABOCHA_VERSION
The version number, same as Text::CaboCha::version().
-
CABOCHA_TARGET_VERSION
The version number detected at compile time of Text::CaboCha.
-
CABOCHA_TARGET_MAJOR_VERSION
The version number detected at compile time of Text::CaboCha.
-
CABOCHA_TARGET_MINOR_VERSION
The version number detected at compile time of Text::CaboCha.
-
CABOCHA_CONFIG
Path to cabocha-config, if available.
https://taku910.github.io/cabocha/
Copyright (C) Kei Kamikawa.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html
Kei Kamikawa x00.x7f@gmail.com
@codehex