如何正确处理Perl数组？新手数据库操作代码错误排查求助

核心错误点 #

• SQL语句拼接存在注入风险且语法不严谨：直接将GETVALUE("attribute")拼接到SQL中，未使用DBI占位符机制，既容易引发SQL注入，也可能因参数含特殊字符导致SQL语法错误。
• 第一个查询的结果处理错误：COUNT查询仅返回单行结果，无需用while循环获取，单次fetch即可拿到计数值。
• 第二个查询未执行数据获取：定义了$sth2但从未调用fetch系列方法读取数据，@name、@adress数组始终为空，后续引用数组元素必然报错。
• 数组使用语法错误：my $name->[$i]写法完全错误，数组元素正确引用方式是$name[$i]，且引用时不能用my重新声明变量。
• 循环逻辑混乱：试图用COUNT结果作为循环次数去取未填充的数组元素，逻辑不成立，正确做法是直接遍历第二个查询的结果行。
• 语法错误：代码末尾多了一个闭合}，导致编译失败。

修正后的代码示例 #

use strict;
use warnings;
use DBI;

my $host = "host";
my $database = "DBI:mysql:database";
my $tablename = "table";
my $user = "user";
my $pw = "password";

# 先获取参数，用占位符避免SQL注入
my $attribute_value = GETVALUE("attribute");
my $sql_count = "SELECT COUNT(`attribute`) FROM `table` WHERE `attribute` = ?";

my $connect = DBI->connect($database, $user, $pw) or die "Couldn't connect to database: " . DBI->errstr;

# 处理COUNT查询
my $sth_count = $connect->prepare($sql_count);
$sth_count->execute($attribute_value);
my ($count) = $sth_count->fetchrow_array;
$sth_count->finish;

SETVALUE("CountAttribute", $count);

# 处理数据查询
my $sql_data = "SELECT `attribute2`,`name`, `adress` FROM `table` WHERE `attribute` = ?";
my $sth_data = $connect->prepare($sql_data);
$sth_data->execute($attribute_value);

my $index = 0;
# 直接遍历每一行查询结果
while (my @row = $sth_data->fetchrow_array) {
    my ($attr2, $name, $adress) = @row;
    SETVALUE("Variable".$index, "$name, $adress");
    $index++;
}

$sth_data->finish;
$connect->disconnect;

关键修正说明 #

1. 使用DBI占位符：用?作为参数占位符，在execute时传入具体值，彻底避免SQL注入，同时保证SQL语法正确。
2. 简化COUNT结果处理：单次fetchrow_array获取计数值，无需循环。
3. 直接遍历数据行：通过while循环读取第二个查询的每一行数据，实时处理并调用SETVALUE，无需预先将所有数据存入数组（若需保存数据，可在循环中存入数组）。
4. 修复语法问题：移除多余的闭合括号，修正数组引用方式。
5. 资源清理：调用finish关闭语句句柄，最后断开数据库连接，避免资源泄漏。

内容的提问来源于stack exchange，提问作者sarah