Perl Can'；t调用方法"；fetchrow“U数组”；没有包或对象引用

我想从数据库中选择数据并显示它们，但我遇到了以下问题：

在没有包或对象引用的情况下无法调用方法“fetchrow\u array”

test.pl
my$q=新的CGI（）

---

我想不出问题出在哪里。我不熟悉这种语言，需要一些帮助

execute

返回true/false，而不是语句处理程序，但看起来您正在将该返回值赋给

$sqlSelect

。将

get_list

的返回值更改为

$sqlSelect

  ...
  $sqlSelect->execute or die "can't execute the query: $sqlSelect->errstr";
  return $sqlSelect;
}

---

显示特定错误是因为

$sqlSelect

因此是布尔值而不是对象引用（因此不能对其调用方法）。

像这样吗$sqlSelect->execute or die“无法执行查询：$sqlSelect->errstr”；否，后面的一行是

return$sqlSelect（该行没有返回）。
  ...
  $sqlSelect->execute or die "can't execute the query: $sqlSelect->errstr";
  return $sqlSelect;
}