perl에서 "재귀 적"상수

Question

perl에서 다른 상수를 정의 할 때 하나의 상수를 사용하는 conviented 한 방법이 있습니까?

하는 것은 다음 분명하지 하지 작업

use constant { 
    MAIN_DIR => "/path/to/some/dir", 
    PROP_DIR => MAIN_DIR . "/sub_dir", 
    PROP_FILE => PROP_DIR . "/props.props", 
}; 

단지 내가 여러 use constant 라인입니다 생각할 수있는 생각하지만, 그것은

Answer 1

이 perldoc에 따라 방법이 없습니다 ... 추한 약간의 그 주변. 적어도 use constants이 아닙니다.

여러 use 문을 사용하고 싶습니다. 합니다 (constants 프라그가 어떻게 작동하는지 그건)

Answer 2

참고로, 당신은 처음부터 일정한 기능을 사용할 수 있습니다 :

sub MAIN_DIR () { "/path/to/some/dir"  } 
sub PROP_DIR () { MAIN_DIR . "/sub_dir"  } 
sub PROP_FILE() { PROP_DIR . "/props.props" } 

Answer 3

$ perl -wle 'use Readonly; Readonly my $FOO => "foo"; Readonly my $FOOBAR => $FOO . "bar"; print $FOOBAR;' 
foobar 

PBP (펄 모범 사례) 사용하는 것이 좋습니다 Readonly