“递归” Perl 中的常量

Question

在 perl 中定义另一个常量时，是否有一些方便的方法来使用一个常量？

下面的内容显然不起作用工作

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

我唯一能想到的是多个useconstant行，但它有点难看......

Answer 1

仅供参考，您可以首先使用常量函数（这就是 constants pragma 的工作原理）：

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

Answer 2

根据 perldoc 没有办法解决这个问题。至少对于使用常量来说是这样。

我会选择使用多个 use 语句。

Answer 3

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

PBP（Perl 最佳实践）建议使用 Readonly