Perlで別のファイルに定数を定義する方法はありますか？

Question

私はいくつかのファイル名の定数を取り入れたたくさんのPerlファイルを持っています。私はCでヘッダファイルのようなものを別のファイルに定義したいと思います。これはPerlでこれを行う最も一般的な方法です。

Answer 1

PerlにはCヘッダファイルと同等のものはありません。グローバル定数を宣言して定義するには、defineプラグマを使用します。インターフェイスは分かりやすいようですが、私はこのモジュールの経験がありません。

一方、定数を定義し、useを使用してモジュールにインポートするモジュールを記述することができます。たとえば、次のようにあなたは、このモジュールを使用することができます

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__ 

：あなたは完全修飾変数名（例えば$MyConstants::Y）を使用してOKであれば

#!/usr/bin/perl 

use strict; use warnings; 

use MyConstants qw($X); 

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

を、あなたは全くExporterを必要としません。

また、エクスポートする変数が別の場所で変更できないようにしてください（Exporterの注意事項を参照してください）。

もちろん、constant.pmを使用して定数を定義することもできます。このような定数を使うほうが速いかもしれませんが、文字列でそれらを補間する必要がある場合は、扱いにくいです。

Answer 2

「require」または「use」を後で使用できるように、perlモジュールとして書き込む方法もあります。あなたはこのようなあなたのファイルを作成したい - それを.PM拡張（例えば、myFabulousPackage.pm）を得

package myFabulousPackage; 

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

1; 

を次に、あなたのperlスクリプトで、これはファイルをインクルードして、otherSetting $を参照します：

#!/usr/bin/perl 

use myFabulousPackage; 

print $myFabulousPackage::otherSetting; 

これはパッケージ/モジュールでできることを非常に簡単に示していますが、必要な場合は実装するのが最も簡単な方法です。同様に、サブパッケージもパッケージに入れて同様の方法で参照することができます。

Answer 3

通常、これはモジュール名の定数で行います。それを使用する次に

package MyPackage::Constants; 

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

1; 

、：：

package MyPackage; 
use MyPackage::Constants; 

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

あなたがパッケージのすべての時間を参照するようにしたくなかった場合は、輸出を使用して、必要なすべてのシンボルに持って来ることができるような何か。

Answer 4

これは構成設定のように聞こえます。これは、さまざまなCPANモジュールの1つ、たとえばConfig::Anyで解析する設定ファイルに入れる方がよいでしょう。

設定はデータであり、IMOはあなたのコードに含まれてはいけません。