Làm cách nào để xác định các hằng số trong một tệp riêng biệt trong Perl?

Question

Tôi có một loạt các tệp Perl chứa một số hằng số tên tệp. Tôi muốn định nghĩa chúng trong một tập tin riêng biệt - một cái gì đó giống như một tập tin tiêu đề trong C. Cách tốt nhất/tiêu chuẩn nhất để làm điều này trong Perl là gì?

Answer 1

Không có tương đương với tệp tiêu đề C trong Perl. Để khai báo và xác định các hằng số toàn cầu, bạn có thể sử dụng define pragma. Tôi không có kinh nghiệm với mô-đun này mặc dù giao diện có vẻ hợp lý.

Mặt khác, bạn có thể viết mô-đun nơi bạn xác định các hằng số và nhập chúng vào mô-đun của mình bằng cách sử dụng use. Ví dụ:

package MyConstants; 

use strict; use warnings; 

use Exporter qw(import); 
use Const::Fast; 

our @EXPORT = qw(); 
our @EXPORT_OK = qw($X $Y); 

const our $X => 'this is X'; 
const our $Y => 'this is Y'; 

__PACKAGE__; 
__END__ 

Sau đó bạn có thể sử dụng module này như sau:

#!/usr/bin/perl 

use strict; use warnings; 

use MyConstants qw($X); 

print "$X\n"; 
print "$MyConstants::Y\n"; 

Nếu bạn là OK với việc sử dụng tên biến đầy đủ (ví dụ $MyConstants::Y), bạn không cần phải Exporter ở tất cả.

Ngoài ra, hãy chắc chắn rằng các biến bạn xuất không thể sửa đổi ở nơi khác (xem chú ý trong tài liệu Exporter).

Tất nhiên, bạn cũng có thể xác định các hằng số bằng cách sử dụng constant.pm. Nó có thể nhanh hơn để sử dụng các hằng số như vậy, nhưng chúng rất khó xử nếu bạn cần phải nội suy chúng trong một chuỗi.

Answer 2

Một cách là viết chúng dưới dạng mô-đun perl, sau đó bạn có thể bao gồm "yêu cầu" hoặc "sử dụng". Bạn muốn viết tập tin của bạn như thế này - cung cấp cho nó một phần mở rộng .pm (ví dụ, myFabulousPackage.pm)

package myFabulousPackage; 

$someSetting=45; 
$otherSetting='Fish'; 

1; 

Sau đó, trong kịch bản perl của bạn, điều này sẽ bao gồm các tập tin và sau đó tham khảo $ otherSetting:

#!/usr/bin/perl 

use myFabulousPackage; 

print $myFabulousPackage::otherSetting; 

Đây chỉ là một cái nhìn rất đơn giản về những gì bạn có thể làm với một gói/mô-đun, nhưng đối với những gì bạn cần, đây có thể là cách đơn giản nhất để thực hiện nó. Tương tự, bạn cũng có thể đặt các gói con trong gói và tham khảo chúng theo cách tương tự.

Answer 3

Chúng tôi thường làm điều này với một tên mô-đun Các hằng số. Một cái gì đó như:

package MyPackage::Constants; 

our $DIR = "/home/chriss"; 
our $MAX_FILES = 5; 

1; 

Sau đó, để sử dụng nó:

package MyPackage; 
use MyPackage::Constants; 

open(my $fh, ">", $MyPackage::Constants::DIR . "/file"); 

Nếu bạn không muốn tham khảo các gói tất cả các thời gian, bạn có thể sử dụng xuất khẩu và mang lại tất cả những biểu tượng mà bạn muốn.

Answer 4

Điều này giống như cài đặt cấu hình, tốt hơn nên đặt trong tệp cấu hình mà bạn phân tích cú pháp bằng một trong các mô-đun CPAN khác nhau, ví dụ: Config::Any.

Cấu hình là dữ liệu mà IMO không nên có trong mã của bạn.