Question

我想改动“Perl sunlink,以检验我的代码删除正确的档案。以为依据这个问题及其答案和,我尝试:

use strict;
use warnings;
use subs  unlink ;
  
sub mock_unlink {
    use Data::Printer; p @_;
    return;
}     

BEGIN {
    no warnings qw/redefine/;
    *CORE::GLOBAL::unlink = mock_unlink;
    # *unlink = mock_unlink;
    use warnings;
}
          
unlink "some file";

但是,当我执政时,我的 mo忙职能确实被称作,但论点清单是空的。我还收到警告说,<代码>unlink没有定义。

$ perl mcve.pl
[]
Undefined subroutine &main::unlink called at mcve.pl line 17.

我预计,它将印刷。

["some file"]

我先从以下线对评论进行了尝试:*unlink = mock_unlink;,但那是没有变化的。

我如何需要修改<条码>unlink,以检查我的法典试图删除哪些档案?

Answer 1

use strict;
use warnings;
use feature  say ;

#use subs  unlink ;
use subs  mock_unlink ;  # but do you really need it?

sub mock_unlink {
    say "Want to unlink: @_";
    #return;  # returns undef ... why?
}

BEGIN {
    no warnings qw/redefine/;
    *CORE::GLOBAL::unlink = &mock_unlink;
    #use warnings;  # no need, `no warnings` is scoped to this block
}

unlink "some file";

注

get a reference to apoint sub (not subname)
use subs pragma predeclares the specified subs so one can use them Without parenthesis Even before their definition. 你们真的需要吗?

为什么不使用<条码>各分点;? ......不知道。很显然,在宣布拟用这个程序取代的子点之前,该子要用这个过程加以说明。在我发现情况后,我将随时通报最新情况。
。因此,你不需要明确警告(但也不是错误)。
return;,载于。这通常表明,在这方面似乎不合适。从最后一份有回报的声明中删除了收益价值,在这种情况下,如果成功,可回归成正本的<条码>。

因此,在本案中(如果你必须,请上<代码>return>。

友情链接