如何使用'#!/ usr/bin/env perl'- shebang在perl脚本中设置污点模式？

Question

如何在perl脚本中设置污点模式

#!/usr/bin/env perl

家当？

Answer 1

您可以在shebang行上传递PERL5OPT环境变量:

#!/usr/bin/env PERL5OPT=-T perl

这似乎对我来说都是倒退.

另一种选择是,如果检测到它没有打开,则在污染模式下重新执行脚本:

#!/usr/bin/env perl

warn 'Taint mode is '.(${^TAINT} ? 'on' : 'off'); # For debugging

exec($^X,'-T',$0,@ARGV) unless ${^TAINT};

# do stuff under taint mode here

显然,这是一个重大的创业公司业绩.