請(qǐng)高手解說(shuō)一下這幾個(gè)sub

cinanine

請(qǐng)高手解說(shuō)一下
來(lái)解說(shuō)下
分析下這幾個(gè)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

自己運(yùn)行結(jié)果看看就知道。

zhlong8

我說(shuō)那么眼熟， 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

運(yùn)行是簡(jiǎn)單的，就是看不明白。
請(qǐng)高手解說(shuō)下代碼

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

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

看不明白。
還請(qǐng)賜叫 ....

zhlong8

&& || 是短路的，拿 any 說(shuō)，只要有一個(gè)為真就會(huì)執(zhí)行到 return 1，否則永遠(yuǎn)執(zhí)行不到，最后返回那個(gè) 0

cinanine

哦！原來(lái)是這樣！！


謝謝！