Funkcja "include" dla Perla

Question

Mam funkcję, którą chciałbym zdefiniować w dwóch różnych skryptach Perla, ale nie lubię konieczności edycji obu. Czy istnieje sposób, w jaki mogę to zrobić (jak w PHP) z zewnętrznego pliku?

FUNC PLIK:

sub test { 

} 

PLIK 1:

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

pliku 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

Aby odpowiedzieć na pytanie wąsko:

Tak, można dołączyć plik za pomocą funkcji require('filename').

Aby odpowiedzieć na pytanie, na ogół:

Perl posiada kompletny mechanizm definiowania i eksportowania funkcji poprzez mechanizm pakietu. To jest described in perlmod. Powinieneś naprawdę użyć tego mechanizmu, ponieważ możesz ostatecznie spakować moduł do modułu CPAN i udostępnić go innym, lub po prostu łatwo zainstalować w innych systemach.