请高手解说一下这几个sub

cinanine

请高手解说一下
来解说下
分析下这几个sub


  sub asub { $_ && return 1 for @_; 0 }

  sub bsub { $_ || return 0 for @_; 1 }

  sub csub { $_ && return 0 for @_; 1 }

  sub dsub { $_ || return 1 for @_; 0 }

2gua

自己运行结果看看就知道。

zhlong8

我说那么眼熟， List::Util

  # One argument is true
  sub any { $_ && return 1 for @_; 0 }
  # All arguments are true
  sub all { $_ || return 0 for @_; 1 }
  # All arguments are false
  sub none { $_ && return 0 for @_; 1 }
  # One argument is false
  sub notall { $_ || return 1 for @_; 0 }
  # How many elements are true
  sub true { scalar grep { $_ } @_ }
  # How many elements are false
  sub false { scalar grep { !$_ } @_ }

cinanine

运行是简单的，就是看不明白。
请高手解说下代码

sub aub { $_ && return 1 for @_; 0 }

不明白啥{ $_ && return 1 for @_; 0 }
的就是any??

看不明白。
还请赐叫 ....

zhlong8

&& || 是短路的，拿 any 说，只要有一个为真就会执行到 return 1，否则永远执行不到，最后返回那个 0

cinanine

哦！原来是这样！！


谢谢！