前に書いたスクリプトが使っていて不便に思うので、ちょろっと書き直し。 use strict; use warnings; use DBI; use Encode qw/from_to/; my $dbh = DBI->connect('dbi:SQLite:./foo.db', '', '', {RaiseError => 1}) or die $!; my $sth = $dbh->prepare('SE…