Text::MeCabで遊んでみる
MeCabのインストール
うーん。とりあえずforce。
インストール完了。
Twitterのfriends_timelineをGETして、Mecabで分解。
$ sudo aptitude install mecab libmecab-dev
$ su -
# cpan
cpan>install Text::MeCab
t/04-dclone....................1/? Can't call method "surface" on an undefined value at t/04-dclone.t line 22.
うーん。とりあえずforce。
cpan>force install Text::MeCab
インストール完了。
Twitterのfriends_timelineをGETして、Mecabで分解。
#!/usr/bin/perl
use strict;
use Net::Twitter;
use Jcode;
use Text::MeCab;
my $twit = Net::Twitter->new(username=>"USERNAME", password=>"PASSWORD") ;
my $result = $twit->friends_timeline();
my $i = 0;
my $j = 0;
my @DATA = ();
my @words = ();
foreach my $hash (@$result) {
$DATA[$i] = $hash->{'text'};
$i++;
}
for ($j=0; $j<$i; $j++){
my $mec = Text::MeCab->new;
for (my $nod = $mec->parse($DATA[$j]); $nod; $nod=$nod->next ) {
push @words, $nod->surface if length $nod->surface;
}
}
print join ' ', @words;
exit;