gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Text::MeCab;

my $parser= Text::MeCab->new();
my $conn  = DBI->connect("dbi:mysql:d1;mysql_socket=/usr/mysql/5.6.23/data/mysql.sock",
                         "root", "", {mysql_enable_utf8 => 1});
my $rs    = $conn->selectall_arrayref("SELECT tweet_id, text FROM tweets", {Slice =>{}});

foreach my $row (@$rs)
{
  my @ret;
  for (my $node= $parser->parse($row->{text}); $node; $node= $node->next)
  {
    push(@ret, $node->surface) if $node->surface;
  }

  $conn->do("UPDATE tweets SET fts = ? WHERE tweet_id = ?", undef, join(" ", @ret), $row->{tweet_id});
}