Perl - 如何获取匿名数组中的元素数量，以简洁地修剪路径名

Question

我正在尝试将一段代码缩减为一行。我需要一种方法来获取列表中的项目数。我的代码目前看起来像这样：

# Include the lib directory several levels up from this directory
my @ary = split('/', $Bin);
my @ary = @ary[0 .. $#ary-4];
my $res = join '/',@ary;
lib->import($res.'/lib');

太棒了，但我想把这一行写成这样：

lib->import( join('/', ((split('/', $Bin)) [0 .. $#ary-4]))  );

但是当然，语法 $#ary 在上面的行中是没有意义的。

是否有等效的方法来获取匿名列表中的元素数量？

谢谢！

PS：合并此内容的原因是它将位于a的标题中 一堆附属于主应用程序的 perl 脚本，我想要这个 小咒语要更切&粘贴证明。

谢谢大家

匿名中的元素数量似乎没有简写 列表。这似乎是一个疏忽。然而，建议的替代方案都很好。

我同意：

lib->import(join('/', splice( @{[split('/', $Bin)]}, 0, -4)).'/lib');

但是 Ether 建议了以下内容，这是更正确和可移植的：

my $lib = File::Spec->catfile(
                realpath(File::Spec->catfile($FindBin::Bin, ('..') x 4)),
               'lib');
lib->import($lib);

Answer 1

lib->import(join('/', splice(@{[split('/', $bin)]}, 0, -4)).'/lib');

Answer 2

检查 splice 函数。

Answer 3

您可以使用 splice 函数操作数组（例如删除最后 n 个元素） ，但您也可以使用负索引生成数组的切片（其中 -1 表示最后一个元素，-2 表示倒数第二个元素，等等）：例如 @list = @arr[0 .. -4 ] 是合法的。

但是，当您似乎想要的是 lib 目录的位置时，您似乎要经历很多后空翻操作这些列表。向 perl 可执行文件提供 -I 参数，或者使用 $FindBin::Bin< 不是更容易吗？ /a> 和 File::Spec->catfile 定位相对目录到脚本的位置？

use strict;
use warnings;

use Cwd 'realpath';
use File::Spec;
use FindBin;

# get current bin
# go 4 dirs up,
# canonicalize it,
# add /lib to the end
# and then "use" it

my $lib = File::Spec->catfile(
                realpath(File::Spec->catfile($FindBin::Bin, ('..') x 4)),
               'lib');
lib->import($lib);