perlのいくつかのスクリプトとモジュールの定数を定義する

Question

私は以下の問題に直面しています： 私はいくつかのモジュールとスクリプトからなるperlプロジェクトを進めています。プロジェクトは2つの異なるマシンで実行する必要があります。

私は外部プログラムを呼び出していますが、両方のマシンでパスが異なるので、すべてのファイルに対してグローバルに一度定義してから、マシンを切り替えるときにのみこの定義を変更したいと思います。

私はかなり新しいですが、これを達成するための一般的な方法は何かをお聞きします。 "use define"やグローバル変数などを使うべきですか？

ありがとうございます！

Answer 1

設定情報を保持するモジュールを作成します。あなたのファイルで

package My::Config; 
use warnings; 
use strict; 
use Carp(); 

my %setup = (
    one => {path => '/some/path'}, 
    two => {path => '/other/path'}, 
); 

my $config = $setup{ $ENV{MYCONFIG} } 
    or Carp::croak "environment variable MYCONFIG must be set to one of: " 
       .(join ' ' => keys %setup)."\n"; 

sub AUTOLOAD { 
    my ($key) = our $AUTOLOAD =~ /([^:]+)$/; 
    exists $$config{$key} or Carp::croak "no config for '$key'"; 
    $$config{$key} 
} 

そして：あなたのperlのライブラリパス内のファイルMy/Config.pmで

あなたのマシン上

use My::Config; 

my $path = My::Config->path; 

そしてもちろん、キーの一つに環境変数MYCONFIGを設定%setup。

Answer 2

私があなただったら、グローバル変数を避けるために最善を尽くします。彼らは弱いコーディングスタイル（あらゆる言語で）のサインであり、メンテナンスの地獄を提供します。

代わりに、構成ファイルを作成して使用することができます。これは、各マシンに1つずつです。

• Config::Auto
• Config::JSON
• Config::YAMLそして、多くの他の多くの

Answer 3

よりもむしろ定義：Perlの上にある、あなたはCPANモジュールを使用する準備ができて、自由のためのオプションをたくさん持っています実行可能な実行可能ファイルを見つけるためにサブルーチンを使わないのはなぜですか？

my $program = program_finder(); 
sub program_finder { 
    -x && return $_ for qw(/bin/perl /usr/bin/perl /usr/local/bin/perl); 
    die "Could not find a perl executable"; 
}