warnings;
use feature 'say';
my $x = 2;
say
!$x ? 'zero'
: $x == 1 ? 'one'
: $x == 2 ? 'two'
: $x == 3 ? 'three'
: 'too many'
;
Иногда так использую тернарный оператор. P.S. Только двоеточия оставляю в конце строк
#!/usr/bin/perl use strict; use warnings; use feature 'say'; my $x = 2; say !$x ? 'zero' : $x == 1 ? 'one' : $x == 2 ? 'two' : $x == 3 ? 'three' : 'too many' ; # vs say !$x && 'zero' || $x == 1 && 'one' || $x == 2 && 'two' || $x == 3 && 'three' || 'too many' ; # vs say(!$x and 'zero' or $x == 1 and 'one' or $x == 2 and 'two' or $x == 3 and 'three' or 'too many' ); # vs say do { if ( !$x ) { 'zero' } elsif($x == 1) { 'one' } elsif($x == 2) { 'two' } elsif($x == 3) { 'three' } else { 'too many' } }; # vs say((sub { return 'zero' if !$x; return 'one' if 1 == $x; return 'two' if 2 == $x; return 'three' if 3 == $x; return 'too many'; })->()); # vs use feature qw/switch/; no warnings qw/deprecated::smartmatch/; say do { given($x) { 'zero' when !$_; 'one' when 1; 'two' when 2; 'three' when 3; default { 'too many' } } }; # vs use Switch '__'; say((sub { switch($x) { case !__ { return 'zero' } case 1 { return 'one' } case 2 { return 'two' } case 3 { return 'three' } else { return 'too many' } } })->()); # vs # Тут выражения вычисляются все, а не последовательно, # поэтому раскрывают частный случай say +{ 0 => 'zero', 1 => 'one', 2 => 'two', 3 => 'three', }->{$x} // 'too many';
use Switch - это неспортивно! Когда-то очень давно расплевался от него, уже не помню причину, и никто не заставит его снова юзать. )
my @dw = qw/zero one two three/; say $_ <= 3 ? $dw[$_] : "too many" for 0 .. 4;
Индекс можно не проверять, а сразу использовать //: my @dw = qw/zero one two three/; say $dw[$_] // "too many" for 0 .. 4;
Обсуждают сегодня