请高手解说一下这几个sub
请高手解说一下
来解说下
分析下这几个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 }
来解说下
分析下这几个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 }
作者: cinanine 发布时间: 2011-05-13
自己运行结果看看就知道。
作者: 2gua 发布时间: 2011-05-13
我说那么眼熟， List::Util
QUOTE:
# 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 { !$_ } @_ }
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 { !$_ } @_ }
作者: zhlong8 发布时间: 2011-05-13