Perl - Cómo obtener la cantidad de elementos en una matriz anónima, para recortar de forma concisa nombres de ruta

Question

Estoy tratando de obtener un bloque de código en una línea. Necesito una manera de obtener la cantidad de elementos en una lista. Mi código actualmente se ve así:

# 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'); 

Eso está muy bien, pero me gustaría hacer que una línea, algo como esto:

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

Pero, por supuesto, la sintaxis $#ary no tiene sentido en la línea anterior .

¿Hay forma equivalente de obtener la cantidad de elementos en una lista anónima?

Gracias!

PS: La razón de la consolidación de esto es que será en la cabecera de un grupo de scripts de Perl que son accesorias a la aplicación principal, y yo quiero que esto poco encantamiento para ser más corta & prueba de pasta.

Gracias a todos

No parece ser una abreviatura para el número de elementos de una lista anónima . Eso parece un descuido. Sin embargo, las alternativas sugeridas fueron todas buenas.

voy con:

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

Pero Éter sugerido lo siguiente, que es mucho más correcto y portátil:

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

comprobar la función splice.

Answer 3

Puede manipular una matriz (como eliminar los últimos n elementos) con la función splice, pero también puede generar una porción de una matriz usando un índice negativo (donde -1 significa el último elemento, -2 significa la penúltimo, etc.): por ejemplo @list = @arr[0 .. -4] es legal.

Sin embargo,, usted parece estar pasando por un montón de backflips manipulando estas listas cuando lo que parece que falta es la ubicación de un directorio lib. ¿No sería más fácil proporcionar un argumento -I al ejecutable de Perl, o usar $FindBin::Bin y File::Spec->catfile para ubicar un directorio relativo a la ubicación del script?

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);