perl - 在使用 -T 开关运行时，DBI::db=HASH(0xa32bd40)->do method call 的参数 3 中显示错误 Insecure dependency

Question

当我修改文件 show_bug.cgi 时，我在 DBI::db=HASH(0xa32bd40)->使用 -T 开关运行时执行方法调用的参数 3 中出现错误 Insecure dependency

原因是什么？

Answer 1

去污点即。变量$unsecure，应应用正则表达式

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