Это одна из функций, запланированных для Perl 6 (переходы), с синтаксисом, который должен выглядеть следующим образом: my $a = 1|2|3
;
Если он когда-либо будет реализован, он будет работать интуитивно, как если бы $a==1
был истинным в то же время, что и $a==2
. Также, например, $a+1
даст вам значение 2|3|4
.
Эта функция на самом деле доступна и в Perl5 через Perl6 :: Junction и Quantum :: Superpositions , но без синтаксического сахара (через 'functions' all
и any
).
По крайней мере для сравнения (b < any(1,2,3)
) он также был доступен на экспериментальном языке Microsoft Cω , однако он нигде не был задокументирован (я просто попробовал его, когда смотрел на Cω, и он просто работал) .