是否可以拦截Perl方法调用？

Question

你可以在Perl中拦截方法调用，对参数做些什么，然后执行它？

Answer 1

是的，你可以拦截Perl子程序调用。我在Mastering Perl中有关于这类事情的整章。查看Hook::LexWrap模块，该模块可让您在不通过所有细节的情况下执行此操作。 Perl的方法只是子例程。

你也可以创建一个子类并覆盖你想要捕获的方法。这是一个稍微好一些的方法，因为这就是面向对象编程希望你做到的方式。但是，有时候人们会编写不允许您正确执行此操作的代码。 Mastering Perl还有更多关于这方面的内容。

Answer 2

这看起来像Moose的工作！ Moose是Perl的一个对象系统，可以做到更多。 docs在解释方面会做得比我更好，但您可能需要的是Method Modifier，特别是before。

Answer 3

简而言之，Perl具有修改符号表的能力。您可以通过程序包所属的包的符号表调用子程序（方法）。如果您修改符号表（并且这不是很脏），则可以用调用您指定的其他方法替换大多数方法调用。这证明了方法：

# The subroutine we'll interrupt calls to 
sub call_me 
{ 
    print shift,"\n"; 
} 

# Intercepting factory 
sub aspectate 
{ 
    my $callee = shift; 
    my $value = shift; 
    return sub { $callee->($value + shift); }; 
} 
my $aspectated_call_me = aspectate \&call_me, 100; 

# Rewrite symbol table of main package (lasts to the end of the block). 
# Replace "main" with the name of the package (class) you're intercepting 
local *main::call_me = $aspectated_call_me; 

# Voila! Prints 105! 
call_me(5); 

这也表明，一旦有人需要子程序的引用，并通过引用调用它，你再也不能影响这样的电话。

我很确定有框架在perl中进行方位化，但是我希望这个方法能够证明这种方法。

Answer 4

是的。

您需要三样东西：

的参数来调用在@_这只是另一种动态范围的变量。

然后，goto支持reference-sub参数，该参数保留当前的@_但是进行另一个（尾部）函数调用。

最后local可用于创建词汇范围的全局变量，符号表被埋在%::。

所以，你有：

sub foo { 
    my($x,$y)=(@_); 
    print "$x/$y = " . ((0.0+$x)/$y)."\n"; 
} 
sub doit { 
    foo(3,4); 
} 
doit(); 

这当然打印出：

3/4 = 0.75 

我们可以通过local foo换成去：

my $oldfoo = \&foo; 
local *foo = sub { (@_)=($_[1], $_[0]); goto $oldfoo; }; 
doit(); 

而现在我们得到：

4/3 = 1.33333333333333 

如果你想修改*foo不使用它的名字，而你不想通过操纵%::使用eval，那么你可以修改它，例如：

$::{"foo"} = sub { (@_)=($_[0], 1); goto $oldfoo; }; 
doit(); 

而现在我们得到：

3/1 = 3 

Answer 5

你可以和帕维尔描述了一个好办法做到这一点，但你应该详细说明，为什么你想要做这个摆在首位。

如果您正在寻找拦截对任意子例程的调用的高级方法，那么摆弄符号表将适合您，但是如果您想为可能导出到您当前使用的命名空间的函数添加功能，那么您可能需要知道如何调用其他名称空间中存在的函数。

例如，Data :: Dumper通常会将函数'Dumper'导出到调用名称空间，但您可以覆盖或禁用该函数并提供您自己的Dumper函数，然后通过完全限定名称调用原始函数。

例如

use Data::Dumper; 

sub Dumper { 
    warn 'Dumping variables'; 
    print Data::Dumper::Dumper(@_); 
} 

my $foo = { 
    bar => 'barval', 
}; 

Dumper($foo); 

再次，这是一个替代的解决方案取决于原始问题，即可能更合适。使用符号表时可以带来很多乐趣，但如果你不需要它可能会导致难以维护的代码。