Помимо объединения any существуют еще три: all, one и none. Их смысл понятен из названия.
Объединения главным образом следует использовать с оператором сопоставления с шаблоном (match) ~~, но поскольку он еще не полностью реализован в Pugs, для демонстрации придется довольствоваться простым сравненением ==.
Создадим два объединения any и none:
my $jany = any (1, 3, 5, 7, 9);
my $jnone = none (2, 4, 6, 8);
Теперь, чтобы определить четность числа, достаточно сравнить его с одним из этих объединений:
say ‘even’ if 5 == $jany;
say ‘even’ if 7 == $jnone;
В обоих случаях Perl 6 напечатает ответ even.
«Центр информационной безопасности» оказывает комплексные услуги по обслуживанию и администрированию компьютерных систем, круглосуточной технической поддержке.
Специалисты нашей группы проведут сбор и анализ информации об объекте информационной деятельности, размещенной
в сети Интернет, с целью выявления явных и скрытых угроз информационной безопасности объекта, а также тестирование web-сайта, созданного третьей стороной, тестирование ПО и многое другое.
Мы обеспечиваем защиту от утечек конфиденциальной информации, предотвращаем несанкционированный доступ
к данным и разрабатываем стратегии по минимизации рисков, связанных с киберугрозами. Наша команда экспертов обладает глубокими знаниями в области информационной безопасности и применяет передовые технологии для защиты вашей организации. Мы также проводим обучение сотрудников по вопросам
информационной безопасности, чтобы повысить уровень осведомленности и снизить вероятность ошибок, приводящих к инцидентам. Наша цель - обеспечить надежную и всестороннюю защиту вашей информации, позволяя вам сосредоточиться на развитии бизнеса.
