https://github.com/code-hex/ngram
Ngram with perl
https://github.com/code-hex/ngram
Last synced: 5 months ago
JSON representation
Ngram with perl
- Host: GitHub
- URL: https://github.com/code-hex/ngram
- Owner: Code-Hex
- License: mit
- Created: 2016-05-26T08:32:52.000Z (over 9 years ago)
- Default Branch: master
- Last Pushed: 2016-07-26T12:43:04.000Z (over 9 years ago)
- Last Synced: 2025-05-29T11:17:33.552Z (7 months ago)
- Language: Perl
- Size: 5.86 KB
- Stars: 0
- Watchers: 2
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# String::Ngram
Text::MeCab based ngram module with perl
##Usage
###init
```
my $ngram = String::Ngram->new(TEXT::MECAB_INITIAL_ARGS);
```
###make marcov dictionary
```
$ngram->makedic(Str, Int);
```
###save dictionary data
```
$ngram->savefile(Str);
```
###load dictionary data
```
$ngram->loadfile(Str);
```
###generate sentense
```
$ngram->generate(Int);
```
##Example
```perl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use v5.10;
use Encode qw/encode_utf8 decode_utf8/;
use Data::Dumper;
use String::Ngram;
my $ngram = String::Ngram->new(dicdir => "/usr/local/lib/mecab/dic/mecab-ipadic-neologd");
my $input = encode_utf8 "今回のサミットで焦点となる世界経済を巡る討議は、午後３時半すぎに終わりました。この中で安倍総理大臣は「世界経済は今、まさに分岐点にあり、政策的対応を誤ると危機に陥るリスクがあることは認識しておかなければならない」という考えを示し、Ｇ７の結束を呼びかけたとみられます。。";
$ngram->makedic($input, 3);
# say Dumper $ngram->dictionary;
say $ngram->generate(16);
```
##License
MIT License.