Как обрабатывать переопределенные ошибки подпрограммы в 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 Exporter ), например:

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

use strict;
use POSIX '!remove';

...

sub remove {
  ...
}
...

Answer 4

Подпрограмма XYZ переопределена в строке N [ошибка perl]

Вы можете обернуть свою программу без предупреждений 'redefine' (которая имеет лексическую область):

noпредупреждения 'переопределить';

sub XYZ{

...
...

}

Это сработало для меня!