perl读取db2的clob字段

m0925j

我要读取db2数据库一个clob字段里面的内容，存的是xml，但是读出来一个<就没内容了，另外一张表的一个clob字段读出来<?xml version="1.0"就没了，都是读到?就终止了，好像读到了什么终止符？但是有一个第一个?又能读出来，终止在第二个?上。。。应该不是长度限制问题，设置了$dbh->{LongReadLen} = 2147483647;比数据库哪个字段的最大值要大。麻烦大家帮忙看看问题在哪儿。。谢谢了

1. 
   
2. #!perl
   
3. use strict;
   
4. use warnings;
   
5. use DBI;
   
6. use DBD::DB2;
   
7. use DBD::DB2::Constants;
   
8. use Data::Dumper;
   
9. my $data_source='dbi:DB2:STANDARD';
   
10. my $username="db2admin";
    
11. my $password="db2admin";
    
12. my $dbh = DBI->connect($data_source,$username,$password) || die "$DBI::errstr";
    
13.    $dbh->{LongReadLen} = 2147483647;
    
14. my $stmt="select * from TB_PRIMALDATA";
    
15. my $sth = $dbh->prepare($stmt);
    
16.    $sth->execute();
    
17. open(DDD,'>1.xml');
    
18. binmode(DDD);
    
19. while(my @row = $sth->fetchrow)
    
20. {
    
21.         print DDD $row[2];
    
22. }
    
23. close(DDD);
    

复制代码

现在$row[2]是对应的我要的那个字段。

[ 本帖最后由 m0925j 于 2009-3-5 10:24 编辑 ]