Существует ли функция Perl для превращения строки в regexp для использования той строки в качестве шаблона?

С Keycloak Authorization события (event1 и event2) должны быть вашими ресурсами.

Администратор, Менеджер, Гость должны быть вашими ролями

Затем вам нужно создать политики в разделе Авторизация, чтобы соответственно предоставить доступ пользователям / ролям

Область действия обычно указывает, что можно сделать с данным ресурс. Примерами областей видимости являются просмотр, редактирование, удаление и т. Д. Однако область действия также может быть связана с конкретной информацией, предоставляемой ресурсом. Например, ваши события могут иметь свойство скажем источник со значениями ЦП, сеть, память и т. Д. Вы можете определять политики и разрешения на основе источника событий.

Более подробную информацию можно найти в здесь

.

8
задан Alan Moore 27 September 2010 в 14:06
поделиться

5 ответов

Стандартный путь состоит в том, чтобы использовать \Q индикатор Escape перед Вашей переменной, чтобы сказать Perl не анализировать содержание как регулярное выражение:

return grep (!/\Q$filter/, @output);

Изменение той строки в урожаях кода:

1..3
ok 1 - grep, pattern not found
ok 2 - grep, pattern found
ok 3 - grep, pattern found
27
ответ дан 5 December 2019 в 04:32
поделиться

PS: в дополнение к вопросу об ответе выше, я приветствую любую обратную связь на использовании Perl в вышеупомянутом, как я все еще узнаю.

Лучший совет, который я могу дать для совета кодирования Perl в целом, состоит в том, чтобы установить Perl:: Критик и использует команду perlcritic на Вашем коде. Если Вы не можете сделать этого, можно использовать инструмент критика жемчуга онлайн. Поможет, есть ли у Вас копия удобных Лучших практик Perl с тех пор Perl::Critic уже прочитал книгу и даст Вам ссылки на номера страниц, однако даже если у Вас нет книги вокруг Вас, может все еще найти расширенную обратную связь в Perl:: разделы документации Критика, запускающиеся с Perl::Critic::Policy::.

2
ответ дан 5 December 2019 в 04:32
поделиться

в дополнение к вопросу об ответе выше, я приветствую любую обратную связь на использовании Perl в вышеупомянутом, как я все еще узнаю.Спасибо

Я был бы совет Вы для не использования прототипов (($) после test_grep). У них есть свое использование, но не для большинства случаев и определенно не в этом.

8
ответ дан 5 December 2019 в 04:32
поделиться

Я думаю, что Вы ищете quotemeta

15
ответ дан 5 December 2019 в 04:32
поделиться

Я предложил бы использовать qr для создания Объектов RegExp, а не строк в этом случае так или иначе.

ok(test_grep(qr/foo/), "grep, pattern not found");
ok(test_grep(qr/gcc/), "grep, pattern found");
ok(test_grep(qr/g\+\+/), "grep, pattern found");

Затем Вам не нужен Escape \Q. Хотя можно все еще использовать его:

ok(test_grep(qr/\Qg++/), "grep, pattern found");
2
ответ дан 5 December 2019 в 04:32
поделиться
Другие вопросы по тегам:

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