Kobito.appで管理されてるDBを取り出す

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use DBIx::Simple;

my $db = DBIx::Simple->connect('dbi:SQLite:dbname=./Kobito.db') || die DBIx::Simple->error;

my $result = $db->query('select ZCREATED_AT, ZTITLE, ZRAW_BODY, ZBODY from ZITEM') || die $db->error;

while ($result->into( my($CREATED_AT, $TITLE, $ROW_BODY, $HTML) )) {
    print "$CREATED_AT\t";
    print "$TITLE\n";
}

$db->disconnect;