use lib '..';
use TmmLib6;

# 必ず古いTmmLib6を使用すること

use DbMysql;

&DbMysql::connect;


my $sth = $DB->prepare(q{
SELECT id, DATE_FORMAT(updatetime, '%Y-%m-%d') date,
       UNIX_TIMESTAMP(createtime) createtime,
       UNIX_TIMESTAMP(updatetime) updatetime,
       subject, body
  FROM diary
 ORDER BY id
});
$sth->execute;

while (my $data = $sth->fetchrow_arrayref)
  {
    my @data = map { $TL->newString->set($_)->sjis } @$data;
    @data = map { unpack 'H*', $_ } @data;
    print join("\t", @data), "\n";
  }