Làm cách nào để tự động bao gồm mô-đun Perl mà không sử dụng eval?

Question

Tôi cần bao gồm động mô-đun Perl, nhưng nếu có thể muốn tránh xa eval do các tiêu chuẩn mã hóa công việc. Công trình này:

$module = "My::module"; 
eval("use $module;"); 

Nhưng tôi cần cách để làm điều đó mà không cần eval nếu có thể. Tất cả các tìm kiếm trên google đều dẫn đến phương thức eval, nhưng không có cách nào khác.

Có thể thực hiện việc này mà không cần eval không?

Answer 1

Sử dụng require để tải mô-đun khi chạy. Nó thường là một ý tưởng tốt để bọc này trong một khối (không phải chuỗi) eval trong trường hợp không thể tải mô-đun.

eval { 
    require My::Module; 
    My::Module->import(); 
    1; 
} or do { 
    my $error = $@; 
    # Module load failed. You could recover, try loading 
    # an alternate module, die with $error... 
    # whatever's appropriate 
}; 

Lý do cho sự eval {...} or do {...} cú pháp và thực hiện một bản sao của $@ là vì $@ là một biến toàn cầu có thể được thiết lập bởi nhiều điều khác nhau. Bạn muốn lấy giá trị như nguyên tử nhất có thể để tránh tình trạng cuộc đua, nơi một cái gì đó khác đã đặt nó thành một giá trị khác.

Nếu bạn không biết tên của các mô-đun cho đến khi thời gian chạy bạn sẽ phải làm bản dịch giữa tên mô-đun (My :: Module) và tên file (My/Module.pm) bằng tay:

my $module = 'My::Module'; 

eval { 
    (my $file = $module) =~ s|::|/|g; 
    require $file . '.pm'; 
    $module->import(); 
    1; 
} or do { 
    my $error = $@; 
    # ... 
}; 

Answer 2

Vâng, có luôn require là như trong

require 'My/Module.pm'; 
My::Module->import(); 

Lưu ý rằng bạn bị mất bất cứ điều gì hiệu ứng mà bạn có thể đã nhận từ import được gọi tại thời gian biên dịch thay vì chạy.

Chỉnh sửa: Sự cân bằng giữa giá trị này và eval là: eval cho phép bạn sử dụng cú pháp mô-đun bình thường và cung cấp cho bạn một lỗi rõ ràng hơn nếu tên mô-đun không hợp lệ (trái với chỉ đơn thuần là không tìm thấy). OTOH, cách eval là (có khả năng) nhiều hơn tùy thuộc vào việc tiêm mã tùy ý.

Answer 3

Không, không thể không có eval, vì require() cần tên mô-đun thanh viên, như được mô tả tại perldoc -f require. Tuy nhiên, nó không phải là một sử dụng ác của eval, vì nó không cho phép tiêm mã tùy ý (giả sử bạn có quyền kiểm soát nội dung của tập tin bạn đang require ing, tất nhiên).

EDIT: Mã được sửa đổi bên dưới, nhưng tôi sẽ rời phiên bản đầu tiên để hoàn chỉnh.

tôi sử dụng tôi sử dụng để sử dụng module này ít đường để làm tải trọng động trong thời gian chạy:

package MyApp::Util::RequireClass; 

use strict; 
use warnings; 

use Exporter 'import'; # gives you Exporter's import() method directly 
our @EXPORT_OK = qw(requireClass); 

# Usage: requireClass(moduleName); 
# does not do imports (wrong scope) -- you should do this after calling me: $class->import(@imports); 
sub requireClass 
{ 
    my ($class) = @_; 
    eval "require $class" or do { die "Ack, can't load $class: $@" }; 
} 

1; 

PS. Tôi đang nhìn chằm chằm vào định nghĩa này (tôi đã viết nó khá lâu trước đây) và tôi đang cân nhắc việc thêm điều này: $class->export_to_level(1, undef, @imports); ... nó nên hoạt động, nhưng không được kiểm tra.

EDIT: phiên bản 2 bây giờ, đẹp hơn nhiều mà không có một eval (nhờ ysth): :)

package MyApp::Util::RequireClass; 

use strict; 
use warnings; 

use Exporter 'import'; # gives you Exporter's import() method directly 
our @EXPORT_OK = qw(requireClass); 

# Usage: requireClass(moduleName); 
# does not do imports (wrong scope) -- you should do this after calling me: $class->import(@imports); 
sub requireClass 
{ 
    my ($class) = @_; 

    (my $file = $class) =~ s|::|/|g; 
    $file .= '.pm'; 
    require $file; # will die if there was an error 
} 

1; 

Answer 4

Class :: MOP trên CPAN có một phương pháp load_class cho việc này: http://metacpan.org/pod/Class::MOP

Answer 5

Cách sử dụng mô đun lõi Module::Load

Với ví dụ:

"Mô-đun :: Tải - thời gian chạy yêu cầu của cả hai mô-đun và tệp"

"tải loại bỏ sự cần thiết phải biết bạn đang cố yêu cầu tệp hay mô-đun."

Nếu nó không thành công nó sẽ chết với một cái gì đó tương tự "Không thể xác định vị trí xxx trong @ INC (@ INC chứa: ...".

Answer 6

tôi thích làm những việc như ..

require Win32::Console::ANSI if ($^O eq "MSWin32");