Perl で変数を untainting する場合、すべての untainting は Perl (.pl) ファイルに対してローカルで実行する必要がありますか、それとも Perl Module (.pm) を介して untaint に渡すことができますか?
たとえば、汚染除去は次のようになります。
$string =~ /\A(.*)\z/s
(明らかに、入力をブランケットマッチにするのは悪い習慣です。これは例を示しているだけです)
複数の .pl ファイルで同じ正規表現に対して実行したいので、.pm を介して渡すことができるのではないかと思っています。
use myModule;
$string = myModule::myUntaint($string);
「myUntaint」は、正規表現を含む .pm 「myModule」内のサブルーチンです。