Perl 或 MySQL 问题

Question

我正在尝试编写一个非常简单的 MySQL SELECT 查询，如所附：

#
# MODULES
#

use strict;
use DBI;
use DBD::mysql;

#
# CONNECT
#
my $dbd = DBI->connect("dbi:mysql:dbname=$db_name;host=$host;mysql_server_prepare=1;",$db_user, $db_pwd)
or die 'No connection to dB : '.DBI::errstr;
#
# PREPARE
#
my $query = "SELECT * FROM $table WHERE $search_field = ? ";
my $prep = $dbd->prepare($query)
    or die "ERR: " .$dbd->errstr;
#
# EXECUTE    
#
$prep->execute( $search_data )
    or die 'ERR : '.$prep->errstr;
#
# SHOW
#
while (my @data = $prep->fetchrow_array ) {
    foreach my $line (@data) {
       print $line.', ';
    }
    print "\n";
}

带有 TinyText 的搜索字段。 （但也尝试了 varchar，结果相同） 搜索字段编码为 utf8_unicode_ci （但也尝试了 latin_general_ci，相同的结果）

如果我使用 $search_data 的纯数字链运行请求（如 0124345）：好的，我得到结果
如果我使用 $search_data 的纯文本链（如 AZERTY）运行请求：好的，我得到结果

但是：

如果我使用混合文本/数字运行请求（如 AZERTY01234）：未找到记录，
如果我使用带有破折号、点等的混合文本运行请求（如 foo-bar）：未找到记录
如果我使用带有破折号、点等的混合文本运行请求（如 foo+bar）：找不到记录

我尝试了几种可能的修复，但没有成功。 （更改 SQL 数据类型，带或不带简单/双引号，没有准备好的查询...）

我不知道为什么以及如何解决它。

提前感谢一些提示。

Answer 1

看起来 Perl 可能会混淆字符串、数字及其算术。

解释 OReilly 的对 Perl DBI 进行编程，为了帮助确定绑定值中提供的数据类型，您可以在执行绑定时提供一个指定数据类型的附加参数。

对于您的情况，我会尝试类似以下的操作来强制绑定文本类型/SQL_VARCHAR。

my $prep = $dbd->prepare($query) or die "ERR: " .$dbd->errstr;

$prep->bind_param( 1, $search_data, { TYPE => SQL_VARCHAR } );

$prep->execute( ) or die 'ERR : '.$prep->errstr;