如何删除从perl读取sql文件时附加的特殊字符

Question

我正在尝试使用 perl 从 sql 文件执行查询，但是当我尝试时，我看到在查询之间或查询末尾附加了一些特殊字符。我不确定如何解决这个问题。

my $dbh = DBI->connect("DBI:Oracle:$dbconnectstring","$user","$password");
open FH, "< Queries.sql"; 
$sth = $dbh->prepare(<FH>)     or die ("Can't prepare  $sqlStatement");
$sth->execute($name,$id)      or die ("Can't execute $sqlStatement");

sql文件中的SQL语句：

delete from Employee where name = ? and id = ? ;

以下是我得到的错误：

DBD::Oracle::st 执行失败：ORA-00911：无效字符（DBD 错误：'delete from Employee where name = :p1 and id = :p2>;') [for Statement "delete 来自员工，其中姓名 = ？和 id = ?;" 与 ParamValues： :p1='3453', :p2='4545'] 在 ExecuteDelete.pl 第 32 行，块 1。

无法在 ExecuteDelete.pl 第 32 行，块 1 处执行

请在这里帮助我。我不确定我是否在这里做错了什么。

我已经尝试了所有其他方法..我给了什么..一些“” - 这个特殊字符正在附加..即使我尝试如下 请帮帮我

my $sqlStatement = qq/delete from $tableName where name = ?和身份证=？ AND 地点 = $place/;

print "声明是" . $sql语句。 "\n"; 我的 $sth = $dbh->prepare($sqlStatement);

DBD::Oracle::st execute failed: ORA-00904: invalid identifier (DBD ERROR: error possibly near <*> indicator at char 101 in 'delete from EMPLOYEE where ORDER_NUMBER = :p1 AND ORDER_VERSION = :p2 AND place = <*>EMPLOYEE') [for Statement "delete from EMPLOYEE where name = ? AND id = ? AND place = EMPLOYEE" with ParamValues: :p1='34534', :p2='09']

Answer 1

您正在使用旧方式打开文件。这是一种现代方法：

use strict;
use warnings;
#...
open my $fh, '<', 'Queries.sql' or die $!; 
my $sql = <$fh>;
chomp $sql;
my $sth = $dbh->prepare($sql);
$sth->execute($name,$id);
#... 
close $fh;

同时删除“;”在你的 SQL 中

我推荐使用这个 CPAN 模块Data::Phrasebook::SQL，它可能对您使用 SQL 的上下文有所帮助。