Kịch bản Perl có thể sử dụng làm chương trình và làm mô-đun

Question

Tôi có một tập lệnh Perl (chương trình độc lập) có chứa một số đăng ký mà tôi muốn sử dụng lại trong các tập lệnh khác. Do những hạn chế của môi trường thực hiện, tôi không thể di chuyển các hàm đến một tệp tin phổ biến .pm.

Có thể phân biệt được liệu tập lệnh có được chạy dưới dạng chương trình độc lập hay là require ed/do do tập lệnh khác biên soạn?

Điều duy nhất tôi có thể tìm thấy là sử dụng caller ở cấp cao nhất: chương trình độc lập không có bất kỳ người gọi nào trong khi khi require ed caller hiển thị những người đã tải mô-đun. Có giải pháp nào tốt hơn không?

Answer 1

Có, cách tiếp cận caller của bạn là chính xác - đây là kỹ thuật có tên "modulinos" theo brian d foy. Tôi đoán rằng brian đã phát minh ra nó trừ khi ai đó khai sáng tôi ngược lại.

Các bộ phận làm việc chính của modulino trông như thế này (từ câu trả lời SO liên kết dưới đây):

__PACKAGE__->run(@ARGV) unless caller; 
sub run { 
    my($class, @args) = @_; 
} 
1; 

Dưới đây là một vài tài liệu tham khảo:

"Modules as Programs" chapter from "Mastering Perl" book by brian d foy

"Scripts as Modules" article in Dr. Dobbs

"How a script becomes a module" article on perlmonks

What should I put in my starter template for my Perl programs?