"include" -esque function per Perl

Question

Ho una funzione che vorrei definire in due diversi script Perl, ma non mi piace doverli modificare entrambi. C'è un modo che posso include (come in PHP) da un file esterno?

FUNC FILE:

sub test { 

} 

FILE 1:

include func_file; 
foo(); 
bar(); 
test(); 

FILE 2:

include func_file; 
blah(); 
test(); 

Answer 1

Func.pm:

package Func; 

use Exporter qw(import); 
our @EXPORT = qw(test); 

sub test { 
} 

1; 

File1.pl:

use Func; 

test(); 

Answer 2

di rispondere alla domanda di poco:

Sì, è possibile includere un file utilizzando la funzione require('filename').

Per rispondere alla domanda generale:

Perl ha un meccanismo completo per la definizione e l'esportazione funzioni attraverso il suo meccanismo pacchetto. Questo è described in perlmod. Dovresti davvero usare questo meccanismo, dato che puoi eventualmente impacchettare il modulo in un modulo CPAN e renderlo disponibile per altri, o semplicemente semplice da installare su altri sistemi.