Perl的IO事件处理程序的字符串解除污染

Question

如何创建在我的Perl代码的事件处理程序，以拦截所有文件/目录/系统为基础的电话，让我能在一个公正的，及时的方式解除污染输入。

我有很多在我的脚本IO访问，我发现添加手册代码解除污染繁琐。

可以这样无需安装第三方CPAN模块做了什么？

Answer 1

您可以尝试服用面向方面的做法但它确实需要安装CPAN模块，看点。

要捕获呼叫至特定方法/函数，可以定义一个切入点（从纵横POD截取）：

$pointcut = call qr/^Person::[gs]et_/; # defines a collection of events

然后定义代码，以该呼叫之前：

$before = before {
  print "g/set will soon be called";
} $pointcut;

虽然我不知道，如果看点模块，可以捕获调用的CORE :: *命名空间。

Answer 2

如何指望解除污染一般的数据？如果你只是去，尽管其源盲目地接受一切，有一个在使用污点检查没有意义。

您可能需要阅读掌握的Perl 中的“安全编程技术”一章。我给了不少意见，对处理这类的东西。但是，任何好的建议是要在特定的情况下，不能一概而论进行有针对性的。