Windows (XP) / Unix (Solaris) 上的 Perl 脚本配置和相对路径实现

Question

嗨，

我在某种程度上遇到了有关 perl 脚本开发的难题。 我使用标准（基本）Perl 安装编写了一个小型 Perl 脚本。 我有以下设置：

C:\MyScript\perl.pl
C:\MyScript\configuration\config.ini
C:\MyScript\output\output.txt

这是 perl.pl 源：

$config      = '/configuration/config.ini';
$conf        = Config::IniFiles->new( -file => $config_file );
$output_dir  = conf->val('output', 'out_dir');
$output_file = "$output_dir/output.txt";

open (out, ">$output_file") || die ("It's not your day mate!");
print out "This is a test...";
close out;

这是 config.ini 内容：

[output]
output_dir = C:\MyScript\output

我遇到的问题是第二行 ($conf) 似乎无法打开该文件地点。 由于我将在 Windows 和 Unix 环境中使用这个脚本（不安装任何附加模块），我想知道如何解决这个问题？ 我希望创建一个可以通过 config.ini 文件完全配置的脚本。 然而，该配置仅在我给出绝对路径时才有效，如下所示：

$config = 'C:\MyScript\configuration\config.ini';

但由于这将部署到多个不同的环境，因此不可能修改脚本源。 你们会推荐什么？ 面对这样的场景，人们应该如何应对？

非常感谢任何帮助和/或建议。

一切顺利， MC

Answer 1

问题在于 $config 分配行 -

$config      = '/configuration/config.ini';

由于前导“/”，它会从根目录搜索 config.ini，将路径解释为绝对路径而不是相对路径。 尝试将其更改为

$config      = './configuration/config.ini';

但这仅当您从“MyScript”目录执行 perl 脚本时才有效。 对于这种情况，请查看 FindBin 模块，或者您可以操作 $0 变量来获取 Perl 脚本路径。

Answer 2

这是一个始终知道哪个是您当前目录并使用其他目录的解决方案。

use strict;
use warnings;
use FindBin;
use File::Spec;
use Cwd;
BEGIN {
    $ENV{APP_ROOT} = Cwd::realpath(File::Spec->rel2abs($FindBin::Bin)) ;
}
#now you know your script directory, 
#no matter from where your script is called
#if you have Modules specific for your script which are in 
#a dir "lib" in the same dir as your script is
use lib  (
"$ENV{APP_ROOT}/lib",
);
my $config      = $ENV{APP_ROOT} . '/configuration/config.ini';
#Here is your script
#...
$output_file = "$ENV{APP_ROOT}/$output_dir/output.txt";

所有模块都来自 CORE 发行版，因此您已经安装了它们。
请注意，Windows 接受“/”斜杠，因此您也可以在那里使用它们。

干杯。