"include" Perl için -esk işlevi

Question

İki farklı Perl betiğinde tanımlamak istediğim bir işlev var, ancak her ikisini de düzenlemekten hoşlanmam. Harici bir dosyadan include (PHP'de olduğu gibi) bir yol var mı?

FUNC DOSYA:

sub test { 

} 

DOSYA 1:

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

DOSYA 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

dar soruya cevap vermek için:

Evet, require('filename') işlevini kullanarak bir dosya içerebilir.

genellikle soruyu cevaplamak için:

Perl, paket mekanizması yoluyla işlevleri tanımlamak ve ihracat için tam bir mekanizmaya sahiptir. Bu described in perlmod. Bu mekanizmayı gerçekten kullanmalısınız, çünkü modülü bir CPAN modülüne paketleyebilir ve başkaları için kullanılabilir hale getirebilir veya diğer sistemlere kolayca yükleyebilirsiniz.