Perl-如果表不存在

Question

我目前正在使用以下方法，该方法可以正常工作，但每次创建表时都会引发错误（因为它首先尝试插入不存在的数据库中并返回false）。

$result = $dbh->prepare("INSERT INTO `". $host ."` (URL) VALUES ('$href')");
if( ! $result->execute() ){
    $result = $dbh->prepare("CREATE TABLE `" . $host . "` ( `ID` INT( 255 ) NOT NULL AUTO_INCREMENT , `URL` VARCHAR( 255 ) NOT NULL , PRIMARY KEY ( `ID` )) ENGINE = MYISAM ;");
    $result->execute();
    print "Host added: " . $host . "\n";
}

有人可以让我知道完成此任务的更有效方法吗？

编辑-绑定

$result = $dbh->prepare("CREATE TABLE `?` If NOT EXISTS ( `ID` INT( 255 ) NOT NULL AUTO_INCREMENT , `URL` VARCHAR( 255 ) NOT NULL , PRIMARY KEY ( `ID` )) ENGINE = MYISAM ;");
            $result->execute($host);
            $result = $dbh->prepare("INSERT INTO `?` (URL) VALUES ('?')");
            $result->execute($host, $href);
            print "Host added: " . $host . "\n";

这个对吗？

Answer 1

CREATE TABLE Foo if NOT EXISTS  <schema>

另外，请在INSERT操作中使用占位符并绑定值，以免被称为Little Bobby Tables 。

Answer 2

尝试：

CREATE TABLE tblname IF NOT EXISTS ...

Answer 3

这是一个网络应用程序吗？ 如果是这样，我强烈建议您不要使用有权更改数据库结构的用户/密码。 一种更典型的方法是使用一个安装程序脚本来预先创建表。

Answer 4

如果您希望表经常存在，那么现有代码是最有效的方法。 请注意，对于给定的语句句柄，可以覆盖PrintError和RaiseError（假设其中之一是“引发错误”的意思）。