在perl中为许多脚本和模块定义常量
在perl中为许多脚本和模块定义常量
提问于 2011-10-08 21:21:25
我正面临以下问题:我正在处理一个由许多模块和脚本组成的perl项目。该项目必须在两台不同的机器上运行。
在整个项目中，我调用外部程序，但两台计算机上的路径不同，因此我希望为所有文件全局定义一次它们，然后仅在切换计算机时更改此定义。
因为我是perl的新手，所以我问您完成此任务的常用方法是什么。我应该使用“定义”还是全局变量或其他什么？
提前感谢！
回答 3
Stack Overflow用户
回答已采纳
发布于 2011-10-09 15:35:32
创建一个模块来保存您的配置信息。
在perl库路径的My/Config.pm文件中：
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}
}然后在你的文件中：
use My::Config;
my $path = My::Config->path;当然，在您的机器上，将环境变量MYCONFIG设置为%setup中的一个键。
Stack Overflow用户
发布于 2011-10-08 21:53:17
如果我是你，我肯定会尽我最大的努力避免使用全局变量--它们是弱编码风格的标志(在任何语言中)，并且给你提供了一个维护地狱。
相反，您可以创建和使用配置文件-每台机器一个。在Perl上，您有很多免费的选择，可以随时使用CPAN模块：
- Config::Auto
- Config::JSON
- Config::YAML
还有许多其他的
Stack Overflow用户
发布于 2011-10-08 23:49:42
与其定义可能工作也可能不工作的全局变量，为什么不使用子例程来查找工作的可执行文件呢？
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";
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/7697085
复制相关文章
相似问题
腾讯云开发者
