Perl 스크립트에서 구성 데이터와 스크립트 논리 분리하기

Question

Perl 스크립트에서 다음과 같은 반 패턴이 반복되는 것을 발견했습니다.이 스크립트에는 스크립트의 상수로 인라인으로 저장하는 일부 기계/설정 관련 설정이 포함되어 있습니다. 스크립트는 자연에서 일반적이다 :

#!/usr/bin/perl 

use strict; 
use warnings; 

# machine specific settings at the start of the script. 
my $SETTING_1 = "foo"; 
my @SETTING_2 = ("123", "456"); 
my $SETTING_3 = "something"; 

# general part of script follows. 
... 

하나의 시스템에서 실행 때이 패턴은 어느 정도 괜찮지 만, 내가하지 않도록 내가 추적해야하기 때문에 최대한 빨리 여러 컴퓨터에 스크립트를 배포 할로 문제가 시작 설정 부분을 일반 부분의 새 업데이트로 덮어 씁니다.

올바른 솔루션은 하나 개의 일반 스크립트 파일이 있고이 스크립트에서 실행되는 환경에 특정한 설정 파일을 읽게 분명히

내 질문은 다음과 같습니다. 당신이 추천 할 것입니다 무엇 CPAN 모듈 이 문제를 해결 하시겠습니까? 왜?

Answer 1

내 즐겨 찾기는 Config::Std입니다. 나는 multi-line 및 multi-part 구성 값을 처리하는 방식을 좋아합니다.

변수가 일 때 복수 값이 될 수 있습니다. 다중 값 : 구성 파일에 단일 값이 있으면 값을 스칼라로 저장합니다. 여러 값이있는 경우 배열 참조를 얻습니다.

운영 환경을 설명하는 값 (라이브러리 등을 찾는 위치)과 사용자가 수정할 수있는 동작을 나타내는 값을위한 두 개의 구성 파일이있는 것이 편리하다는 것을 알았습니다.

나는 또한 주위에 래퍼를 쓰고 싶다. 예를 들어 (자동 생성 읽기 전용 접근을 포함하도록 업데이트) :

이

#!/usr/bin/perl 

package My::Config; 
use strict; use warnings; 

use Config::Std; 
use FindBin qw($Bin); 
use File::Spec::Functions qw(catfile); 

sub new { 
    my $class = shift; 
    my ($config_file) = @_; 

    $config_file = catfile($Bin, 'config.ini'); 
    read_config $config_file => my %config; 

    my $object = bless \%config => $class; 

    $object->gen_accessors(
     single => { 
      install => [ qw(root) ], 
     }, 
     multi => { 
      template => [ qw(dir) ], 
     }, 
    ); 

    return $object; 
} 

sub gen_accessors { 
    my $config = shift; 
    my %args = @_; 

    my $class = ref $config; 

    { 
     no strict 'refs'; 
     for my $section (keys %{ $args{single} }) { 
      my @vars = @{ $args{single}->{$section} }; 
      for my $var (@vars) { 
       *{ "${class}::${section}_${var}" } = sub { 
        $config->{$section}{$var}; 
       }; 
      } 
     } 

     for my $section (keys %{ $args{multi} }) { 
      my @vars = @{ $args{multi}->{$section} }; 
      for my $var (@vars) { 
       *{ "${class}::${section}_${var}" } = sub { 
        my $val = $config->{$section}{$var}; 
        return [ $val ] unless 'ARRAY' eq ref $val; 
        return $val; 
       } 
      } 
     } 
    } 

    return; 
} 

package main; 

use strict; use warnings; 

my $config = My::Config->new; 

use Data::Dumper; 
print Dumper($config->install_root, $config->template_dir); 

C:\Temp> cat config.ini 
[install] 
root = c:\opt 

[template] 
dir = C:\opt\app\tmpl 
dir = C:\opt\common\tmpl

출력 : 클래스에서 웃었되는 위험에서

C:\Temp> g.pl 
$VAR1 = 'c:\\opt'; 
$VAR2 = [ 
      'C:\\opt\\app\\tmpl', 
      'C:\\opt\\common\\tmpl' 
     ];

Answer 2

일반적으로 최첨단 방법은 구성 파일 do EXPR입니다. 이걸 들여다 봤니?

Answer 3

구성 데이터의 경우 YAML과 YAML::XS을 선호합니다. 간단하고 읽기 쉽고 거의 모든 프로그래밍 언어에 대한 바인딩이 있습니다. 또 다른 인기있는 선택은 Config::General입니다.

Answer 4

구성 파일의 경우 YAML을 사용하고 싶습니다. 사람이 읽을 수있는 간단한 플랫폼 간 구성으로 실수로 실제 프로그램으로 변형 될 위험이 없습니다.

Answer 5

Config:Properties 라이브러리는 키/값 쌍 속성 파일을 읽고 쓸 수 있습니다.

Answer 6

는, 하나 개의 솔루션에 설정을 저장하는 것입니다 XML (또는 모험심 많은 JSON). 인간이 소모 할 수 있고 상호 운용 가능한 Perl은 로컬 PC에 존재할 필요가 없습니다 (XML과 JSON은 모두 "config URL"로 요청할 수 있습니다). 그리고 표준 모듈 (XML :: Simple은 일반적으로 config XML 파일)가 CPAN에 있습니다.

Answer 7

자신을 형식에 묶지 마십시오. Config::Any을 사용하거나 좀 더 많은 whizbang DWIM 요소 인 Config::JFDI (Config :: Any를 래핑합니다)을 사용하십시오. 그들과 함께 INI, YAML, XML, Apache-style config 등을 지원할 수있는 능력을 구입하십시오.

Config :: JFDI는 Catalyst의 config loader의 마법을 포착하려고 시도합니다. 즉, app-wide config, 환경 변수 지원, 제한된 매크로 기능으로 인스턴스 로컬 설정 병합 (__path_to(foo/bar)__이 유용합니다 놀랍게도 종종.)

Answer 8

이 간단한 구성의 경우, 특히이 데이터가 실제 세계에서 변경 될 것으로 예상하지 않는 사소한 일들에 대해서는 종종 YAML을 사용합니다. 단순함은 이길 수 없습니다 :

먼저 구성을 포함하는 Perl 데이터 구조를 작성하십시오.

use YAML; 

my $SETTINGS = { 
    '1' => "foo", 
    '2' => ["123", "456"], 
    '3' => "something", 
}; 

그런 다음 YAML :: DumpFile();

YAML::DumpFile("~/.$appname.yaml", $SETTINGS); 

는 데이터 구조를 삭제하고

my $SETTINGS = YAML::LoadFile("~/.$appname.yaml"); 

로 교체 그리고 잊어. 비록 당신이 YAML 문법을 알지 못하거나 배우고 싶다 할지라도, config에 대한 작은 변경은 수동으로 할 수 있고 더 많은 주요 변경은 Perl에서 수행 된 다음 YAML로 다시 덤프 될 수 있습니다.