Cách bao gồm một tệp có chứa tất cả các tên mô-đun Perl được yêu cầu?

Question

Các tập lệnh perl chứa tất cả các tên mô-đun trong phần đầu của tập lệnh.

Ex:

use strict; 
use XML::Parser; 
use XML::Simple; 
use DBI; 
use DBD::DB2::Constants; 
use POSIX qw(strftime); 
use Storable qw(dclone); 
use Data::Dumper; 
use Carp; 

Làm thế nào để giữ cho tất cả các tên mô-đun trong tập tin khác và bao gồm các tập tin trong kịch bản perl chính?

Cảm ơn.

Answer 1

Tạo mô-đun của riêng bạn. Tuy nhiên, nếu nếu bạn thực hiện gói trong mô-đun này, strftime v.v ... sẽ được nhập vào một không gian tên khác. Bạn có thể làm litle hack để làm smiple này:

MyModules.pm:

use strict; 
use XML::Parser; 
use XML::Simple; 
use DBI; 
use DBD::DB2::Constants; 
use POSIX qw(strftime); 
use Storable qw(dclone); 
use Data::Dumper; 
use Carp; 

Lưu ý không có package từ khóa trong .pm này. Kịch bản của bạn:

use MyModules; 

Nơi .pm này vào cùng thư mục với kịch bản hoặc thêm các module đường dẫn tìm kiếm trong thời gian chạy:

use lib '/my_modules_dir/'; 
use MyModules; 

Sử dụng làm và đòi hỏi lệnh không được khuyến khích, vì chúng không kiểm tra cú pháp khi bắt đầu tập lệnh. Chắc chắn bạn có thể đặt chúng vào BEGIN khối nhưng tôi nghĩ rằng cách khéo léo của mình và thường BEGIN{ require ..} cũng giống như use

UPD: Ikegami lưu ý vấn đề của nó không hoạt động khi bạn sử dụng này từ nhiều mô-đun. Bất kể thông tin của người bắt đầu câu hỏi (anh ấy muốn sử dụng thông tin này từ tập lệnh chính), hãy thêm thông tin về cách sử dụng từ nhiều mô-đun, vì vậy bạn tôi có thể cảm thấy tốt hơn. Thêm vào cuối MyModules.pm:

delete $INC{'MyModules.pm'}; 
1; 

Answer 2

Bạn có thể sử dụng

BEGIN { do 'filename.pl' or die $@ } 

Xem do. Hãy chắc chắn bao gồm 1; ở cuối tệp.

Answer 3

Bạn có thể xem mô-đun Toolkit.