Mi sembra di aver trovato diversi modi per trovare le dimensioni di un array. Qual è la differenza tra questi tre metodi?

my @arr = (2);
print scalar @arr; # First way to print array size

print $#arr; # Second way to print array size

my $arrSize = @arr;
print $arrSize; # Third way to print array size

Il primo e il terzo modo sono gli stessi: valutano un array in un contesto scalare. Considererei questo come il modo standard per ottenere le dimensioni di un array.

Il secondo modo in realtà restituisce l'ultimo indice dell'array, che non è (di solito) uguale alla dimensione dell'array.

Primo, il secondo non è equivalente agli altri due. $#arrayrestituisce l'ultimo indice dell'array, che è uno in meno della dimensione dell'array.

Gli altri due sono praticamente uguali. Stai semplicemente usando due modi diversi per creare un contesto scalare. Si tratta di una questione di leggibilità.

Personalmente preferisco quanto segue:

say 0+@array;          # Represent @array as a number

Lo trovo più chiaro di

say scalar(@array);    # Represent @array as a scalar

e

my $size = @array;
say $size;

Quest'ultimo sembra abbastanza chiaro da solo in questo modo, ma trovo che la riga aggiuntiva toglie chiarezza quando fa parte di un altro codice. È utile per insegnare cosa @arrayfa in un contesto scalare e forse se vuoi usarlo $sizepiù di una volta.

Ciò ottiene la dimensione forzando l'array in un contesto scalare, in cui viene valutato come dimensione:

print scalar @arr;

Questo è un altro modo per forzare l'array in un contesto scalare, poiché viene assegnato a una variabile scalare:

my $arrSize = @arr;

Questo ottiene l'indice dell'ultimo elemento dell'array, quindi in realtà è la dimensione meno 1 (supponendo che gli indici inizino da 0, che è regolabile in Perl anche se farlo di solito è una cattiva idea):

print $#arr;

Quest'ultimo non è davvero buono da usare per ottenere le dimensioni dell'array. Sarebbe utile se vuoi solo ottenere l'ultimo elemento dell'array:

my $lastElement = $arr[$#arr];

Inoltre, come puoi vedere qui su Stack Overflow, questo costrutto non è gestito correttamente dalla maggior parte degli evidenziatori della sintassi ...

Per usare il secondo modo, aggiungi 1:

print $#arr + 1; # Second way to print array size

Tutti e tre danno lo stesso risultato se modifichiamo un po 'il secondo:

my @arr = (2, 4, 8, 10);

print "First result:\n";
print scalar @arr; 

print "\n\nSecond result:\n";
print $#arr + 1; # Shift numeration with +1 as it shows last index that starts with 0.

print "\n\nThird result:\n";
my $arrSize = @arr;
print $arrSize;

Esempio:

my @a = (undef, undef);
my $size = @a;

warn "Size: " . $#a;   # Size: 1. It's not the size
warn "Size: " . $size; # Size: 2

La sezione "Tipi di variabili Perl" della documentazione perlintro contiene

La variabile speciale $#arrayindica l'indice dell'ultimo elemento di un array:

print $mixed[$#mixed];       # last element, prints 1.23

Potresti essere tentato di utilizzare $#array + 1per dirti quanti elementi ci sono in un array. Non preoccuparti. Come succede, usando @arraydove Perl si aspetta di trovare un valore scalare ("in contesto scalare") ti darà il numero di elementi nell'array:

if (@animals < 5) { ... }

La documentazione perldata tratta anche questo nella sezione "Valori scalari" .

Se si valuta un array in un contesto scalare, restituisce la lunghezza dell'array. (Si noti che ciò non vale per gli elenchi, che restituiscono l'ultimo valore, come l'operatore virgola C, né per le funzioni integrate, che restituiscono qualunque cosa si desideri restituire.) È sempre vero quanto segue:

scalar(@whatever) == $#whatever + 1;

Alcuni programmatori scelgono di utilizzare una conversione esplicita per non lasciare dubbi:

$element_count = scalar(@whatever);

Precedentemente nella stessa sezione viene illustrato come ottenere l'indice dell'ultimo elemento di un array.

La lunghezza di un array è un valore scalare. È possibile trovare la lunghezza dell'array @daysvalutando $#days, come in csh. Tuttavia, questa non è la lunghezza dell'array; è il pedice dell'ultimo elemento, che ha un valore diverso poiché di solito c'è un 0 ° elemento.

Esistono vari modi per stampare le dimensioni dell'array. Ecco i significati di tutti: diciamo che il nostro array èmy @arr = (3,4);

Metodo 1: scalare

Questo è il modo giusto per ottenere dimensioni delle matrici.

print scalar @arr;  # prints size, here 2

Metodo 2: numero indice

$#arrfornisce l'ultimo indice di un array. quindi se la matrice ha dimensioni 10, il suo ultimo indice sarebbe 9.

print $#arr;     # prints 1, as last index is 1
print $#arr + 1; # Add 1 to last index to get array size

Stiamo aggiungendo 1 qui considerando l'array come 0-indicizzato . Ma, se non è basato su zero, questa logica fallirà .

perl -le 'local $[ = 4; my @arr=(3,4); print $#arr + 1;'   # prints 6

L'esempio sopra stampa 6, perché abbiamo impostato il suo indice iniziale su 4. Ora l'indice sarebbe 5 e 6, con gli elementi 3 e 4 rispettivamente.

Metodo 3:

Quando una matrice viene utilizzata in un contesto scalare, restituisce la dimensione della matrice

my $size = @arr;
print $size;   # prints size, here 2

In realtà il metodo 3 e il metodo 1 sono uguali.

Da perldoc perldata , che dovrebbe essere sicuro di citare:

Quanto segue è sempre vero:

scalar(@whatever) == $#whatever + 1;

Fintanto che non $ $ qualunque ++ e aumenti misteriosamente la dimensione o l'array.

Gli indici dell'array iniziano con 0.

e

È possibile troncare un array fino a zero assegnando ad esso l'elenco null (). Sono equivalenti:

    @whatever = ();
    $#whatever = -1;

Il che mi porta a quello che stavo cercando, ovvero come rilevare l'array è vuoto. L'ho trovato se $ # vuoto == -1;

Che dire int(@array)in quanto minaccia l'argomento come scalare.

Per trovare la dimensione di un array utilizzare la scalarparola chiave:

print scalar @array;

Per scoprire l'ultimo indice di un array c'è $#(variabile di default Perl). Fornisce l'ultimo indice di un array. Quando una matrice inizia da 0, otteniamo la dimensione della matrice aggiungendone una a $#:

print "$#array+1";

Esempio:

my @a = qw(1 3 5);
print scalar @a, "\n";
print $#a+1, "\n";

Produzione:

3

3