Perl Untaint Variable By Passing Through Perl Module Подпрограмма

Question

При снятии переменных в Perl все незатухающие должны выполняться локально в файле Perl (.pl) или его можно передать через модуль Perl (.pm), чтобы освободить?

Например, untainting может выглядеть примерно так:

$string =~ /\A(.*)\z/s 

(очевидно, это плохая практика, чтобы офсетный матч-либо вход, это просто показывает пример)

Я интересно, можно ли передать его через .pm, так как я хочу выполнить против того же выражения регулярного выражения в нескольких файлах .pl.

use myModule; 

$string = myModule::myUntaint($string); 

Где "myUntaint" является подпрограммой в .pm "MyModule", который содержит мое регулярное выражение.

Answer 1

Да, вы можете иметь подпрограмму в модуле, который принимает параметр tainted и возвращает полученное из него неиспользованное выражение.

Но вы не должны использовать обобщенное выражение match-anything, подобное /\A(.*)\z/s, для разблокировки. Это побеждает цель tainting, которая заключается в том, чтобы убедиться, что значение выглядит так, как вы ожидали, прежде чем использовать его. (Но это не имеет никакого отношения к тому, где код, который делает жизнь незамысловатым.)