perl - 在使用 -T 开关运行时在 DBI::db=HASH(0xa32bd40)->do 方法调用的参数 3 中显示错误不安全依赖项

Question

我在修改文件 show_bug.cgi 时使用 -T 开关运行时在 DBI::db=HASH(0xa32bd40)->do 方法调用的参数 3 中收到错误不安全依赖项

是什么原因？

Answer 1

不污染即。变量$unsecure，应应用正则表达式

my ($secure) = $unsecure =~ / (\d+) /x
  or die q{we couldn't find number in $unsecure};

Answer 2

要清除变量，您必须将其与捕获正则表达式进行匹配。有关详细信息，请参阅perlsec - Perl 安全性。