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 ответов

17 просмотров

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

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

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

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
13
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Товарищи, кто работа с iphelper? Или может я в самой логике ошибки фигачу, не пойму.... var ifTable : PMIB_IFTABLE; size, corSize: DWORD; Buffer ...
Warfarellen
4
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Карта сайта