perl – 为什么我的子例程返回值没有分配给$_ default变量

发布时间：2020-12-16 06:11:13 所属栏目：大数据来源：网络整理

导读：我有一个更新RSS提要的Perl子例程.我想测试返回的值,但是函数在很多地方使用,所以我只想测试默认变量$_,据我所知,如果没有指定变量,应该为指定的返回值. 代码有点太长而无法包含所有内容,但实质上它会执行以下操作 sub updateFeed { #.... if($error) { retu

我有一个更新RSS提要的Perl子例程.我想测试返回的值,但是函数在很多地方使用,所以我只想测试默认变量$_,据我所知,如果没有指定变量,应该为指定的返回值.

代码有点太长而无法包含所有内容,但实质上它会执行以下操作

sub updateFeed {
  #....
  if($error) {
    return 0;
  }
  return 1;
}

为什么呢

$rtn = updateFeed("My message");
if ($rtn < 1) { &Log("updateFeed Failed with error $rtn"); }

不记录任何错误

而

updateFeed("myMessage");
if ($_ < 1) { &Log("updateFeed Failed with error $_"); }

记录错误“updateFeed失败错误”？ (注意消息末尾没有值.)

谁能告诉我为什么默认变量似乎包含空字符串或undef？

解决方法

因为Perl不是这样工作的. $_不会自动获取void上下文中调用的函数的结果.有一些内置的运算符默认读写$_和@_,但是你自己的子程序只有在编写代码才能实现时才会这样做.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!