Perl DBI：结果值截止

我目前遇到一个问题，使用下面的select从db中获取的长字符串被截断。在下面的语句中，当我在while循环中打印val1时，它在115个字符后被截断，但在表中，字符串是300个字符

是否有任何Perl模块配置参数需要调整

谢谢

my $sql = "SELECT val1 FROM TABLE";
my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";
$sth->execute() or die "Cannot execute: " . $sth->errstr();
$sth->{'LongTruncOk'} = 1;
$sth->{'LongReadLen'} = 20000;
while(my @row = $sth->fetchrow_array()) {
  ...
}

根据，您必须在准备之前设置LongReadLen（以及LongRuncok）

在语句句柄被“prepare”d之后更改其“LongReadLen”的值通常不会产生任何效果，因此通常在调用“prepare”之前在$dbh上设置“LongReadLen”

根据，您必须在准备之前设置LongReadLen（以及LongRuncok）

在语句句柄被“prepare”d之后更改其“LongReadLen”的值通常不会产生任何效果，因此通常在调用“prepare”之前在$dbh上设置“LongReadLen”

---

哪个DBD和字段类型是什么？哪个DBD和字段类型是什么？