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

前端之家收集整理的这篇文章主要介绍了perl – 为什么我的子例程返回值没有分配给$_ default变量前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个更新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上下文中调用函数的结果.有一些内置的运算符默认读写$_和@_,但是你自己的子程序只有在编写代码才能实现时才会这样做.

猜你在找的Perl相关文章