如何处理 Perl 中的子程序重定义错误

Question

所以我有一个文件，简而言之，有这个问题...

#!/usr/bin/perl -w
package Foo;

use strict;
use POSIX;

...

sub remove {
  ...
}
...

并且我收到一条错误消息，指出子例程 remove 已被重新定义。我知道问题所在，POSIX 中有一个名为 remove 的子例程。但是，我不知道如何处理。这个问题通常是如何解决的？

Answer 1

抑制此警告的另一种方法是将子例程重定义放入 no warnings 'redefine' 块中：

{
    no warnings 'redefine';
    sub remove { ... }
}

Answer 2

执行此操作：

use POSIX ();

这将停止导出 POSIX 模块的所有默认功能。然后，您需要为所有 POSIX 方法添加 POSIX:: 前缀，例如：

POSIX::remove(filename)

用于 POSIX 删除函数。

Answer 3

您可以使用 '!name' 指令排除某些符号的正常导出（请参阅 perldoc出口商），例如：

#!/usr/bin/perl -w
package Foo;

use strict;
use POSIX '!remove';

...

sub remove {
  ...
}
...

Answer 4

在第 N 行重新定义子例程 XYZ [perl 错误]

您可以将例程包装在没有警告的“重新定义”（这是词法范围）中：

no warnings 'redefine';

sub XYZ{
  ...
  ...
}

它对我有用！