ActivePerl + MeCab PPM のテストプログラム: ナマズのブログ

ActivePerl + MeCab PPM の動作テストを行う簡単なプログラムを紹介します。

#!/usr/bin/perl -w

use strict;
use Encode;
use MeCab 0.97;


my $str = "本日は晴天なり。";

my $t = new MeCab::Tagger("-Owakati");

Encode::from_to($str, "Shift_JIS", "EUC-JP");
$str = $t->parse($str);

Encode::from_to($str, "EUC-JP", "Shift_JIS");
print $str;

• この Perl スクリプトは Shift_JIS で作成してください。
• MeCab の辞書は EUC-JP 版の辞書を使用してください。