User:AnomieBOT/source/create-store.pl

#!/usr/bin/perl -w

my $file=shift or die("USAGE: $0 <db-filename>\n");

use DBI;
umask 0007;
my $dbh=DBI->connect("dbi:SQLite:dbname=$file","","",{ RaiseError=>1, AutoCommit=>1});
$dbh->do("CREATE TABLE AnomieBOT_Store (task text not null, k text not null, v text not null, primary key (task,k))");