perl - 如何使用 DBD::SQLite 创建表触发器？

Question

任何人都可以提供语法来创建表触发器，最好使用 DBI 的 do() 方法。它似乎不喜欢我把所有东西都放在一条线上。不知道我做错了什么。这是我所拥有的：

$dbh->do("CREATE TABLE image(img_id integer primary key, md5sum text, path text, name text, date DATE)");
$dbh->do("CREATE TRIGGER insert_img_date AFTER  INSERT ON image BEGIN UPDATE image SET date = DATETIME('NOW') END");

Answer 1

即使您从控制台尝试，您的第二条 SQL 语句也不是有效的语法。
这是相同的，但有一些修复（现在可以了）：

CREATE TRIGGER insert_img_date AFTER  INSERT ON image BEGIN UPDATE image SET date = DATETIME('NOW'); END ;