Perl - Come ottenere il numero di elementi in un array anonimo, per tagliare concisamente i nomi di percorso

Question

Sto cercando di ottenere un blocco di codice su una riga. Ho bisogno di un modo per ottenere il numero di elementi in una lista. Il mio codice attualmente appare così:

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

che è grande, ma mi piacerebbe fare che una linea, qualcosa di simile:

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

Ma naturalmente la sintassi $#ary è privo di significato nella riga sopra .

Esiste un modo equivalente per ottenere il numero di elementi in un elenco anonimo?

Grazie!

PS: La ragione per consolidare questo è che sarà nell'intestazione di un mucchio di script perl ausiliarie al l'applicazione principale, e voglio che questo piccolo incantesimo per essere più tagliare & pasta di prova.

Grazie a tutti

Non sembra essere una scorciatoia per il numero di elementi in un anonimo lista. Sembra una svista. Tuttavia le alternative suggerite erano tutte buone.

che sto andando con:

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

Ma Ether suggerito il seguente, che è molto più corretto e portatile:

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

Controllare la funzione splice.

Answer 3

È possibile manipolare un array (come la rimozione degli ultimi n elementi) con la funzione splice, ma è anche possibile generare una porzione di un array utilizzando un indice negativo (dove -1 indica l'ultimo elemento, -2 indica il penultimo, ecc.): es @list = @arr[0 .. -4] è legale.

Tuttavia,, sembra che si stia verificando un sacco di backflip che manipolano questi elenchi quando ciò che sembra essere desiderabile è il percorso di una directory lib. Non sarebbe più semplice fornire un argomento -I all'eseguibile perl oppure utilizzare $FindBin::Bin e File::Spec->catfile per individuare una directory relativa alla posizione dello 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);