Perl应用程序安装

我已经编写了一个用于在几个服务器上部署的小型perl应用程序。它由一些脚本、一些模块和一些数据文件组成。它将由多个用户使用。我希望将所有这些文件保存在一个目录中，而不是将应用程序模块移动到site_perl目录中

例如，假设应用程序由jump.pl swim.pl Common.pm和messages.txt组成

应用程序（jump.pl或swim.pl）将从另一个目录调用。应用程序的安装位置可能不在$PATH上，因此用户（或其他应用程序）可能通过绝对路径名（如

/some/PATH/swim.pl

）或相对路径名（如

。/PATH/swim.pl

）调用它

我希望将应用程序重新定位为尽可能简单，这意味着在尽可能少的地方拥有应用程序的路径

现在swime.pl和jump.pl是这样开始的

#!/usr/bin/perl
use strict;
use warnings;
use lib '/some/path';
use Common;
#
my $basedir = '/some/path';
...
open my $fh, '<', "$basedir/messages.txt" or die ... ;

#/usr/bin/perl
严格使用；
使用警告；
使用lib'/some/path'；
使用通用的；
#
my$basedir='/some/path'；
...
打开我的$fh，”：

use FindBin qw( $Bin );
use File::Spec::Functions qw( catfile updir );
use lib catfile( updir($Bin), 'lib');