Perl fetchrow_数组最后返回额外的0

我正在从perl调用下面的sybase存储过程

create  procedure  testprocedure2 as 
begin
  select 'one'
end
GO 

在perl中，我使用DBI

do {
      while(my @row = $sth->fetchrow_array()){
            print $row[0]."\n";
      }
  } while ($sth->{syb_more_results});

结果，我得到了

One
0

---

为什么我最终会得到一个额外的0？

基于对web的快速浏览，我猜您必须查看

$sth->{syb_result_type}

，忽略您不感兴趣的结果类型

阅读两个文档（哪些文档

$sth->{syb_result_type}

）和（其中稍微描述了结果类型）

---

我认为

0

是

CS\u STATUS\u RESULT

，存储过程的结果。我想我找到了零表示成功的证据。

基于对网络的快速浏览，我猜你必须查看

$sth->{syb_result_type}

，忽略你不感兴趣的结果类型

阅读两个文档（哪些文档

$sth->{syb_result_type}

）和（其中稍微描述了结果类型）

---

我认为

0

是

CS\u STATUS\u RESULT

，存储过程的结果。我想我找到了零表示成功的证据。

你在sybase中使用哪个模块？我认为你必须查看

$sth->{syb_result_type}

，忽略你不感兴趣的结果类型。请参阅DBD:：Sybase的文档以了解可能存在的问题values@ikegami非常感谢，我已经在上面呆了很长时间了。另外请看哪一个稍微描述了结果类型。但是也要读DBD:：Sybase。@ikegami你可以把它放在答案中，我会接受并关闭这个线程。你在Sybase中使用的是哪个模块？我想你必须看看

$sth->{syb_result_type}

，忽略你不感兴趣的结果类型。请参阅DBD:：Sybase的文档以了解可能存在的问题values@ikegami非常感谢，我已经在上面呆了很长时间了。另外请看哪一个稍微描述了结果类型。但是也要读DBD:：Sybase。@ikegami你可以把它放在答案中，我会接受并关闭这个线程