在Perl中执行SQL文件

发布时间：2020-12-15 23:33:13 所属栏目：大数据来源：网络整理

导读：我们有一个Perl脚本,它运行SQL并将数据放入表中. 现在我们不想提供单个SQL语句,而是希望将它们串起来放在.sql文件中.我们知道我们的程序会失败,因为它需要一个单独的SQL语句,而不是它们的一大堆(也来自.sql文件).我们如何使用.sql文件(具有多个INSERT语句？)

我们有一个Perl脚本,它运行SQL并将数据放入表中.
现在我们不想提供单个SQL语句,而是希望将它们串起来放在.sql文件中.我们知道我们的程序会失败,因为它需要一个单独的SQL语句,而不是它们的一大堆(也来自.sql文件).我们如何使用.sql文件(具有多个INSERT语句？).我们正在使用DBI包.

一小段代码：

$sth = $dbh->prepare("/home/user1/tools/mytest.sql");
$sth->execute || warn "Couldn't execute statement";
$sth->finish();

解决方法

不确定你想要什么……

创建DBI对象后,可以反复使用它.在这里,我正在从文件中读取SQL语句之后的SQL语句,并按顺序处理每个语句：

use DBI;

my $sqlFile = "/home/user1/tools/mytest.sql"

my $dbh = DBI::Connect->new($connect,$user,$password)
    or die("Can't access db");

# Open the file that contains the various SQL statements
# Assuming one SQL statement per line

open (SQL,"$sqlFile")
    or die("Can't open file $sqlFile for reading");

# Loop though the SQL file and execute each and every one.
while (my $sqlStatement = <SQL>) {
   $sth = dbi->prepare($sqlStatement)
      or die("Can't prepare $sqlStatement");

   $sth->execute()
      or die("Can't execute $sqlStatement");
}

请注意,我将SQL语句放在prepare中,而不是包含SQL语句的文件名.这可能是你的问题吗？

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!