Perl PostgreSQL 查询执行两次

Question

我试图了解它发生的原因，但我找不到它。 SQL 查询执行两次。

我的脚本片段：

my $driver = "Pg"; # Driver Name
my $database = $ARGV[0]; # First argument will be database name
my $dsn = "DBI:$driver:dbname=$database;host=127.0.0.1;port=5432";
my $userid = $ARGV[1]; # second argument will be username
my $password = $ARGV[2]; # third argument will be passwd
my $dbh = DBI->connect($dsn,$userid,$password,  {RaiseError => 1 }) or die $DBI::errstr;

sub f_createUser {
    if (scalar @_ != 3 ) {
        return;
    }
    my $query = $dbh->prepare(qq{ SELECT createUserWithPassword(?,?) });
    #my $result = $dbh->do($query) < 0 ? say "$DBI::errstr" : "# >>> Query worked successfully";
    $query->execute($_[1],$_[2]);
}

&f_createUser(@revelantArray);

当我执行脚本时，我得到：

DBD::Pg::st 执行失败：错误：角色“testst”已经存在 上下文：SQL 语句“创建用户 teststt WITH PASSWORD '123'” PL/pgSQL 函数 createuserwithpassword（字符变化，字符 变化）在 homework2.pl 第 39 行的 EXECUTE 语句中的第 3 行， 第 1 行 DBD::Pg::st 执行失败：错误：角色“testst”已经 存在 CONTEXT: SQL 语句 "CREATE USER testtt WITH PASSWORD '123'" PL/pgSQL 函数 createuserwithpassword(字符 变化，字符变化）在 homework2.pl 的 EXECUTE 语句中的第 3 行 第 39 行，第 1 行。

为什么会这样？我错过了什么？

提前谢谢...

Answer 1

您有PrintError => 1，它会在出错时打印一条错误消息。

您有RaiseError => 1，它会引发包含错误消息的异常。未捕获的异常在程序结束时被打印出来。

将PrintError => 0 添加到传递给DBI->connect 的选项中。