我目前遇到一个问题,即使用下面的选择从数据库中获取的长字符串被截断。在下面的语句中,当我在 while 循环中将 val1 打印出来时,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()) {
...
}