Jak zdefiniować stałe w oddzielnym pliku w Perlu?

Question

Mam kilka plików Perla, które pobierają niektóre stałe nazwy pliku. Chciałbym je zdefiniować w oddzielnym pliku - coś jak plik nagłówkowy w C. Jaki jest najlepszy/najbardziej standardowy sposób robienia tego w Perlu?

Answer 1

Brak odpowiedników plików nagłówkowych C w Perlu. Aby zadeklarować i zdefiniować stałe globalne, można użyć pragma define. Nie mam doświadczenia z tym modułem, chociaż interfejs wydaje się rozsądny.

Z drugiej strony można napisać moduł, w którym definiuje się stałe i importować je do modułu przy użyciu numeru use. Na przykład:

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__ 

Następnie można użyć tego modułu, co następuje:

#!/usr/bin/perl 

use strict; use warnings; 

use MyConstants qw($X); 

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

Jeśli są OK, z użyciem w pełni kwalifikowanych nazw zmiennych (np $MyConstants::Y), nie trzeba Exporter w ogóle.

Upewnij się także, że zmienne, które eksportujesz, nie są modyfikowane w innym miejscu (patrz uwaga w dokumentach Exporter).

Oczywiście można również zdefiniować stałe za pomocą constant.pm. Szybsze może być użycie takich stałych, ale są one niezręczne, jeśli trzeba je interpolować w ciągu znaków.

Answer 2

Jednym ze sposobów byłoby napisanie ich jako modułu perla, który następnie można dołączyć za pomocą "wymagaj" lub "używaj". Można by napisać plik tak - nadać mu rozszerzenie .pm (np myFabulousPackage.pm)

package myFabulousPackage; 

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

1; 

Następnie w skrypcie Perl, będzie to obejmować plik, a następnie odwołać $ otherSetting:

#!/usr/bin/perl 

use myFabulousPackage; 

print $myFabulousPackage::otherSetting; 

To jest bardzo prosty widok na to, co można zrobić z pakietem/modułem, ale w razie potrzeby może to być najprostszy sposób wdrożenia. Podobnie możesz umieścić subs w paczce i odnosić się do nich w podobny sposób.

Answer 3

Zwykle robimy to z nazwą modułu Stałe. Coś jak:

package MyPackage::Constants; 

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

1; 

Następnie, aby go użyć:

package MyPackage; 
use MyPackage::Constants; 

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

Jeśli nie chciał odwoływać pakietu cały czas, można użyć eksporter i sprowadzić wszystkich symboli, które chcesz.

Answer 4

To brzmi jak ustawienia konfiguracyjne, które lepiej byłoby umieścić w pliku konfiguracyjnym, który analizuje się za pomocą jednego z różnych modułów CPAN, na przykład Config::Any.

Konfiguracja to dane, których IMO nie powinno znajdować się w kodzie.