Perl - 如果没有包或对象引用，则无法调用方法“cookie”

Question

我写了 Perl LDAP页面搜索脚本来检查目录服务器上的数据质量。

首先，我在本地计算机上运行脚本并将脚本连接到服务器。它工作正常。

但现在我想在服务器上运行脚本，我收到了这个错误：

  

“无法在./Check.pl第181行没有包或对象引用时调用方法”cookie“

   # Perform search
   $ldapsearchresult = $ldapconnect->search (@query);
   @entries = $ldapsearchresult->entries;

   # Only continue on LDAP_SUCCESS
   $ldapsearchresult->code and last;

   # Set cookie as a flag for the last page of results
   $ControlResult = $ldapsearchresult->control(LDAP_CONTROL_PAGED) or last;
   $cookie = $ControlResult->cookie or last; # **Line 181**

   # Set cookie in paged control at the search
   $page->cookie($cookie);

我是Perl编程的新手，也许有人知道这个问题的解决方案。 谢谢你的帮助！