如何處理子程序重新定義錯誤在Perl

Question

所以我必須在短期有這個問題，一個文件...

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

use strict; 
use POSIX; 

... 

sub remove { 
    ... 
} 
... 

，我得到一個得到一個錯誤說子程序remove已經被重新定義。我知道這個問題，在POSIX中有一個叫做remove的子程序。但是，我不知道如何處理它。這個問題通常如何解決？

Answer 1

做到這一點：

use POSIX(); 

將停止出口的POSIX模塊的所有默認功能。然後，您需要以POSIX ::爲前綴所有POSIX方法::如：

POSIX::remove(filename) 

POSIX刪除功能。

Answer 2

另一種方式來禁止這種警告是把你的子程序重新定義一個no warnings 'redefine'塊中：「名稱」

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

Answer 3

可以被正常使用指令出口排除某些符號（見perldoc Exporter）例如：

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

use strict; 
use POSIX '!remove'; 

... 

sub remove { 
    ... 
} 
...