如何在Perl程序中覆盖硬编码配置？

Question

我有一个Perl脚本,它在顶部附近为它将使用的目录和文件设置变量.它还需要将一些变量设置为命令行参数.例:

use Getopt::Long;

my ($mount_point, $sub_dir, $database_name, $database_schema);
# Populate variables from the command line:
GetOptions(
    'mount_point=s'       => \$mount_point,
    'sub_dir=s'           => \$sub_dir,
    'database_name=s'     => \$database_name,
    'database_schema=s'   => \$database_schema
);
# ...  validation of required arguments here

################################################################################
# Directory variables
################################################################################
my $input_directory    = "/${mount_point}/${sub_dir}/input";
my $output_directory   = "/${mount_point}/${sub_dir}/output";
my $log_directory      = "/${mount_point}/${sub_dir}/log";
my $database_directory = "/db/${database_name}";
my $database_scripts   = "${database_directory}/scripts";

################################################################################
# File variables
################################################################################
my $input_file       = "${input_dir}/input_file.dat";
my $output_file      = "${output_dir}/output_file.dat";
# ... etc

这在我的开发,测试和生产环境中工作正常.但是,我试图更容易地覆盖某些变量(无需进入调试器)进行开发和测试.(例如,如果我想设置我的input_file ="/ tmp/my_input_file.dat").我的想法是使用GetOptions函数来处理这个,如下所示:

GetOptions(
    'input_directory=s'      => \$input_directory,
    'output_directory=s'     => \$output_directory,
    'database_directory=s'   => \$database_directory,
    'log_directory=s'        => \$log_directory,
    'database_scripts=s'     => \$database_scripts,
    'input_file=s'           => \$input_file,
    'output_file=s'          => \$output_file
);

GetOptions只能被调用一次(据我所知).我的第一个snippit中的前4个参数是必需的,上面的最后7个参数是可选的.我认为一个理想的情况是在我的第一个代码snippit中设置默认值,然后以某种方式覆盖在命令行传递参数时已设置的任何默认值.我考虑将所有选项存储在哈希中,然后在使用默认值设置每个变量时使用该哈希,除非哈希中存在条目,但这似乎增加了许多额外的逻辑.有没有办法在脚本中的两个不同位置调用GetOptions？

不确定这是否有意义.

谢谢!

Answer 1

听起来您需要更改程序以使用配置文件而不是硬编码配置.我专门用了整整章节掌握Perl.您不想更改源代码来测试程序.

CPAN上有许多Perl模块,可以使配置文件成为一个简单的添加功能.选择最适合您输入数据的那个.

一旦获得更好的配置模型,您可以轻松设置默认值,从多个位置(文件,命令行等)获取值,并使用不同的值轻松测试程序.

Answer 2

这是另一种方法.它使用名称数组和哈希来存储选项.它使所有选项都是可选的,但验证了所需的选项,除非在命令行中包含"--debug".无论您使用"--debug",都可以覆盖其他任何一个.

当然,如果这对你很重要,你可以做更明确的逻辑检查.我包括"--debug"作为如何省略像"mount_point"这样的基本选项的例子,如果你只是要覆盖"input_file"和"output_file"变量.

这里的主要思想是通过在数组中保留选项名称集,您可以使用相对较少的代码对组进行逻辑检查.

use Getopt::Long;

my @required_opts = qw(
    mount_point
    sub_dir
    database_name
    database_schema
);

my @internal_opts = qw(
    input_directory
    output_directory
    log_directory
    database_directory
    database_scripts
    input_file
    output_file
);

my @opt_spec = ("debug", map { "$_:s" } @required_opts, @internal_opts);

# Populate variables from the command line:
GetOptions( \(my %opts), @opt_spec );

# check required options unless 
my @errors = grep { ! exists $opts{$_} } @required_options;
if ( @errors && ! $opts{debug} ) {
    die "$0: missing required option(s): @errors\n";
}

################################################################################
# Directory variables
###############################################################################
my $opts{input_directory}    ||= "/$opts{mount_point}/$opts{sub_dir}/input";
my $opts{output_directory}   ||= "/$opts{mount_point}/$opts{sub_dir}/output";
my $opts{log_directory}      ||= "/$opts{mount_point}/$opts{sub_dir}/log";
my $opts{database_directory} ||= "/db/$opts{database_name}";
my $opts{database_scripts}   ||= "$opts{database_directory}/scripts";

################################################################################
# File variables
################################################################################
my $opts{input_file}    ||= "$opts{input_directory}/input_file.dat";
my $opts{output_file}   ||= "$opts{output_directory}/output_file.dat";
# ... etc