169 похожих чатов

ЧОрт, никогда не задумывался, что switch-case можно сделать красиво: #!/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'
;

5 ответов

18 просмотров

Иногда так использую тернарный оператор. 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';

mr-bbon Автор вопроса
Ярослав🧞 Косьмина
#!/usr/bin/perl use strict; use warnings; use feat...

use Switch - это неспортивно! Когда-то очень давно расплевался от него, уже не помню причину, и никто не заставит его снова юзать. )

Ярослав🧞 Косьмина
#!/usr/bin/perl use strict; use warnings; use feat...

my @dw = qw/zero one two three/; say $_ <= 3 ? $dw[$_] : "too many" for 0 .. 4;

m҉a҉d҉c҉o҉r҉e҉
my @dw = qw/zero one two three/; say $_ <= 3 ? $dw...

Индекс можно не проверять, а сразу использовать //: my @dw = qw/zero one two three/; say $dw[$_] // "too many" for 0 .. 4;

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Ребят в СИ можно реализовать ООП?
Николай
33
у вас два процесса. один посылает другому сигнал. у вас есть код обоих процессов? если всё не так - расскажите как оно на самом деле. а именно кто кому чего, есть-ли консоли,...
Karagy
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Карта сайта