User:AnomieBOT/source/create-store.pl
Appearance
< User:AnomieBOT | source
#!/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))");