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

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

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

有帮助吗?

解决方案

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

要捕获呼叫至特定方法/函数,可以定义一个切入点(从纵横POD截取):

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

然后定义代码,以该呼叫之前:

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

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

其他提示

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

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

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top