perl - DBD::SQLite でテーブル トリガーを作成するにはどうすればよいですか?

Question

できれば DBI の do() メソッドを使用して、テーブル トリガーを作成するための構文を提供できますか。すべてを 1 行にまとめるのが好きではないようです。私が間違っているのかわかりません。これが私が持っているものです：

$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

Your second SQL statement is not valid syntax even if you try it from console.
Here's the same one with some fixes(now it works):

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