ナマズのブログ

ActivePerl + MeCab PPM のテストプログラムです。

#!/usr/bin/perl -w

use strict;
use Encode;
use MeCab 0.96;


die "Undefined MECABRC." if (!defined($ENV{"MECABRC"}));


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 版の辞書を使用してください。