如何在perl脚本中调用SQL

Question

我正在尝试使用此代码连接数据库并执行一些SQL查询，但每次它挂起时。

my $connect_str = `/osp/local/etc/.oralgn $srv_name PSMF`;
my $sqlFile = "/osp/local/home/linus/amit/mytest.sql";
my ($abc, $cde)= split (/\@/ , $connect_str );
print "$abc";

$ORACLE_SID=SDDG00;
`export $ORACLE_SID`;

#chomp($abc);

#$abc=~ s/\s+$//;
`sqlplus $abc`;

open (SQL, "$sqlFile");


while (my $sqlStatement = <SQL>) {
   $sth = dbi->prepare($sqlStatement)
         or die (qq(Can't prepare $sqlStatement));

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

如何在Perl调用SQL命令？

Answer 1

阅读DBI模块的文档将是一个不错的开始。

您的问题似乎是这条线。

$sth = dbi->prepare($sqlStatement)

您试图在类“ dbi”上调用prepare方法。 但是您的程序中没有名为“ dbi”的类（或者，至少，在您展示给我们的代码中我看不到）。

要使用Perl中的数据库，您需要执行以下操作：

1 /加载DBI模块（注意，“ DBI”而不是“ dbi”-Perl区分大小写）。

use DBI;

2 /连接到数据库并获取数据库句柄（有关connect()方法的参数的更多详细信息，请阅读DBD :: Oracle文档 ）。

my $dbh = DBI->connect('dbi:Oracle:dbname', $user, $password);

3 /然后，您可以使用此数据库句柄准备SQL语句。

my $sth = $dbh->prepare($sqlStatement);