a
Есть задача транслитерировать по динамическому шаблону tr/$from/$to/. Perldoc говорит eval "tr/$from/$to/".
Код прогоняется Perl::Critic. Политика ProhibitStringyEval запрещает такие eval, как небезопасные.
Мы с коллегой с ходу решения лучше, чем сделать модуль для всяких хаков (с исключением из проверки) и запихнуть туда функцию обертку над eval(tr/$from/$to/) не придумали.
Может быть, есть другие решения?
Если вам не критична производительность, я бы остановился на варианте с разбиением по символам и трансляцией через хэш. Учитывая, что вы там втроём сами не можете решить этот вопрос. Но вообще странная задача. tr нужен ооочень редко.