Question

我正在使用perl脚本从我的数据库中提取网址，我使用 fetchrow_array 从数据库中提取网址，该工作正常，直到我遇到很长的网址georgelog24.blog.iskreni.net/?bid=6744d9dcf85991ed2e4b8a258153a1ab&lid=ff9963b9a798ea335b75b5f7c0c295d1
然后它开始给我这个错误。

DBD::ODBC::st fetchrow_array failed: st_fetch/SQLFetch (long truncated DBI attribute LongTruncOk not set and/or LongReadLen too small) (SQL-HY000) [state was HY000 now 01004]
[Microsoft][ODBC SQL Server Driver]String data, right truncation (SQL-01004) at C:\test\multihashtest2.pl line 44.

我相信这是在数据库方面，因为我之前用来拉URL的代码已经有效了。我使用的数据库是 MSSQL server 2005。

数据库中的网址列目前使用文字类型，但我尝试将其更改为 varchar（max）和 nvarchar（max）但错误仍然存在。

经过一些试验和错误，我发现网址的最大长度，然后我可以成功查询fetchrow_array是81个字符。由于URL有时会跨越荒谬的长度，我不能对URL长度施加限制。

有人可以帮我理解并建议修复此问题吗？

仅供参考：第44行是我下面代码中的第一行

while (($myid,$url) = $statement_handle->fetchrow_array()) { # executes as many threads as there are jobs to do 
    my $thread = threads->create(\&webcrawl); #initiate thread
    my $tid = $thread->tid;
    print "  - Thread $tid started\n";   #obtain thread no. and print
    push (@Threads, $thread);   #push thread into array for "housekeeping" later on
}

Answer 1

尝试：

#not anymore errors if content is truncated - you don't necessarily want this
$statement_handle->{'LongTruncOk'} = 1;

#nice, hard coded constant for the length of data to be read from Longs
$statement_handle->{'LongReadLen'} = 20000;
while (($myid,$url) = $statement_handle->fetchrow_array()) { # executes as many threads as there are jobs to do 
    my $thread = threads->create(\&webcrawl); #initiate thread
    my $tid = $thread->tid;
    print "  - Thread $tid started\n";   #obtain thread no. and print
    push (@Threads, $thread);   #push thread into array for "housekeeping" later on
}

另外，我建议您尝试Parallel::ForkManager并行化作业 - 我发现它比线程更直观，更易于使用

Answer 2

请查看DBI属性LongTruncOk和LongReadlen

您将需要接受截断或设置最大大小作为文本和varchar（max）列可能是巨大的，所以如果它留给DBD它将别无选择，只能分配大量内存以防列是该列的最大大小。

Answer 3

重点：您需要在数据库句柄 之前上设置LongReadLen和/或LongTruncOk属性以准备语句，如上所述here

在获取数据之前尝试在准备好的语句句柄上设置它将对截断返回的数据没有影响。

数据库fetchrow_array失败了长截断的DBI属性

3 个答案: