perl 连接sybase fetch_row结果不能超过255个字符问题。

zxp209

eisen-pb 发表于 2011-10-9 10:34
看看客户端程序执行有没报01004的warning?

也谢谢eisen 兄了，用 dbi 然后 conver(text)可以完整的打印出来了。

zxp209

没有修改之前：

#!/usr/bin/perl
use DBI;

my $server = "sydb";

my $dbh = DBI->connect('dbi:Sybase:','dbuser','dbpass',{syb_dbd_server=>$server});
my $sth = $dbh->prepare("select * from zxq_test");
$sth->execute();
my @text;
  while((@text) = $sth->fetchrow)
{
    print $text[0]."\n";
}

修改后：


#!/usr/bin/perl
use DBI;

my $server = "sydb";

my $dbh = DBI->connect('dbi:Sybase:','dbuser','dbpass',{syb_dbd_server=>$server});
my $sth = $dbh->prepare("select convert(text,ccc) from zxq_test");
$sth->execute();
my @text;
  while((@text) = $sth->fetchrow)
{
    print $text[0]."\n";
}

修改后的可以把全部内容打印出来。超过255的字符都可以打印出来。