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

zxp209

大家好！
做联通的一个项目，用到一点这方面的知识，但是在连接sybase 库后

#!/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 tab_calculte");
$sth->execute();
my @text;
  while((@text) = $sth->fetchrow)
{
    print $text[1]."\n";
}

第二列是算法规则，字符数上千，但是连接sybase 打印出来的最多只有255个字符，这怎么能屏蔽这个问题？用oracle测试没有这个问题，请高手指点！
谢谢了。

zxp209

perl 的版本 5.8.3
sybase版本 ASE 15.0.2

sosflyer

有没有set line什么的啊？我胡说的，不懂，看看高手怎么说

zxp209

不是,PERL DBI 连 oracle版本 ，然后fetch_row返回列的值 没有问题，同样版本的perl5.8.3 ，但是用 DBI 连sybase 返回列值，就会截断，最多只返回255个字节，不知道有人用 perl 连sybase过吗？

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的字符都可以打印出来。