Perl从v5.8.4升级至v5.16.3后多列SQL查询无返回值问题

• 首先验证DBI及对应DBD驱动兼容性
  Perl从5.8.4升级到5.16.3属于跨大版本更新，旧版DBD驱动（尤其是对接PowerExchange的专用驱动或ODBC驱动）和新版Perl、新版DBI的二进制适配存在缺陷是该类问题的最高发诱因，多列结果返回时的内存结构解析差异会导致fetchrow_arrayref直接返回undef但不抛出任何错误。你可以先分别在新旧环境执行命令perl -MDBI -e 'print $DBI::VERSION'查看DBI版本，同时查询对应DBD驱动的版本，优先将驱动升级到适配当前Perl版本的最新稳定版。
• 替换fetch方法定位问题点
  将现有代码中的fetchrow_arrayref临时替换为fetchrow_array或fetchall_arrayref测试多列返回结果：
  若使用fetchall_arrayref可以正常拿到非空结果集，说明当前驱动版本对逐行fetch的数组引用返回存在已知bug，可先临时改用一次性拉取全量结果再遍历的方式规避问题。
• 校验SQL执行的真实匹配行数
  你现有日志仅打印了executeRC的值，需注意DBI中execute方法对SELECT语句的返回值是预计匹配行数，部分驱动会返回-1代表行数不可知，不代表真实的匹配行数。你可以在execute执行后新增一行日志打印$sth->rows的返回值，确认问题是出在SQL执行后确实无匹配行，还是fetch结果解析阶段异常。
• 排查时间字段隐式转换问题
  你的查询条件使用了时间范围过滤，旧版Perl的DBD驱动默认会自动将字符串格式的时间转换为数据库识别的时间类型，若新版驱动关闭了隐式转换规则，会导致条件匹配不到结果。你可以先将SQL替换为单行单列的COUNT查询：

  SELECT COUNT(*) FROM mmm.cont
  WHERE  datets >= DATEADD(HOUR,-2,'2021-06-17 14:30:40.110000')
  AND datets < '2021-07-22 20:05:32.620000'
  

  若该查询返回的计数大于0，说明过滤条件本身无问题，问题确实出在多列结果的解析阶段。
• 校验特殊分支逻辑是否异常
  你的代码中存在attrDfSortFlag eq 'Y'的特殊处理分支，若该标识被误设置为Y，代码仅会在遍历到最后一列时才写入文件，若遍历过程中出现提前终止，也会表现为无结果返回。你可以在每次fetch到$refRowArray后新增日志打印当前行的列数scalar @$refRowArray，确认确实拿到了有效行数据。

内容的提问来源于stack exchange，提问作者Sumit Pandey