mysql - 脚本仅在一个系统上给出数据库错误

Question

我是一名 VOIP 管理员，我有用于更新 Perl 中的目录数据库的脚本，该脚本是在我受雇于此处之前从供应商处购买的。

该脚本在除一台服务器之外的所有服务器上都运行良好。

#!/usr/bin/perl
use lib "/opt/asterisk/lib/";
use DBI;
use Asterisk::config;
sub trim($);
# database information
$db="kesc";
$host="sip-ho.kesc.com.pk";
$userid="foo";
$passwd="bar";
$connectionInfo="dbi:mysql:$db;$host";
$hubname = "";

# make connection to database
$dbh = DBI->connect($connectionInfo,$userid,$passwd);
# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

my $rc = new Asterisk::config  (file=>'/etc/asterisk/sip.conf',keep_resource_array=>0);
@list = $rc->fetch_sections_list();
$n = 1;
foreach (@list)
{
    if ($_ ne "general") {

        $entry = $rc->fetch_keys_hashref(section=>$_);
        while ( my ($key, @value) = each(%$entry) )
        {
            if ($key eq "callerid") {
                @vars = split('<',$value[0][0]);
                $query = "insert into directory (extension,name,hub) values (" . trim($_) . ", '" . trim($vars[0]) . "', '$hubname') ON DUPLICATE KEY UPDATE hub='$hubname'";
                $sth = $dbh->prepare($query);
                $sth->execute();
            }
        }
    }
    $n++;
}

现在我在执行时遇到下面提到的错误。

DBD::mysql::st execute failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 's Office', '') ON DUPLICATE KEY UPDATE hub=''' at line 1 at ./directory line 39.

我还用相同的 MySQL 版本从其他服务器替换了它，它运行得很好。

请指导我。

Answer 1

谢谢你的代码。正如我所怀疑的那样；你确实不应该将值直接插入到 SQL 语句中

将第 37、38 和 39 行更改为此，它应该适合您

$query = 'INSERT INTO directory (extension, name, hub) VALUES (?, ?, ?) ON DUPLICATE KEY UPDATE hub = ?';
$sth   = $dbh->prepare($query);
$sth->execute( trim($_), trim($vars[0]), $hubname, $hubname );

请注意，代码库中的其他地方可能存在相同的问题，因此确实应该对其进行彻底审查