Я создать базу данныхDancer :: Tutorial подключиться к SQLite
sqlite3 database
create table if not exists entries (
id integer primary key autoincrement,
title string not null,
text string not null
);
^D
Где я должен поставить эту базу данных? После
sub connect_db {
my $dbh = DBI->connect("dbi:SQLite:dbname=".setting('database')) or
die $DBI::errstr;
return $dbh;
}
sub init_db {
my $db = connect_db();
my $schema = read_file('./schema.sql');
$db->do($schema) or die $db->errstr;
}
get '/' => sub {
my $db = connect_db();
my $sql = 'select id, title, text from entries order by id desc';
my $sth = $db->prepare($sql) or die $db->errstr;
$sth->execute or die $sth->errstr;
template 'show_entries.tt', {
'msg' => get_flash(),
'add_entry_url' => uri_for('/add'),
'entries' => $sth->fetchall_hashref('id'),
};
};
делат ошибка Runtime Ошибки ряд "стол": ошибка синтаксиса в /home/ultramozg/App/lib/App.pm линии 40, строка 16
Что это моя ошибка?
'desk' не отображается нигде в том, что вы представили. Что такое строка 40 из lib/App.pm? – ikegami
Строка 40 my $ sth = $ db-> подготовить ($ sql) или умереть $ db-> errstr; –
hum ... Это не похоже на ошибку от DBI, но если вы настаиваете, что в '$ sql'? – ikegami