Conta la lunghezza dell'array in perl

Conta la lunghezza dell'array in perl
“La lunghezza di un array indica il numero di elementi del particolare array. Molti modi esistono in Perl per calcolare la lunghezza dell'array. Quando la lunghezza dell'array viene calcolata usando il "@"Simbolo, quindi è chiamato implicito scalare conversione. Quando la lunghezza dell'array viene calcolata utilizzando la parola chiave scalare, viene chiamata conversione scalare esplicita. Il simbolo "#" può anche essere usato per contare la lunghezza dell'array. In questo tutorial sono stati mostrati diversi modi di contare la lunghezza dell'array e usarla negli script Perl.

Diversi modi di contare la lunghezza dell'array sono stati descritti nella parte successiva di questo tutorial usando esempi."

Esempio-1: conta la lunghezza dell'array usando il simbolo "@"

Crea un file Perl con il seguente codice che conterrà la lunghezza di un array utilizzando il simbolo "@". Un array di 5 valori di stringa è stato definito nel codice. Il numero totale di valori di array è stato memorizzato in una variabile denominata $ che è stata stampata in seguito.

# Dichiara una serie di stringhe
@myarr = ('php', 'java', 'perl', 'bash', 'python');
# Conta la lunghezza dell'array
$ lunghezza = @myarr;
# Visualizza la lunghezza dell'array
Stampa "L'array contiene $ elementi.\N";

Produzione

Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.

Esempio 2: conta la lunghezza dell'array usando la parola chiave scalare

Crea un file Perl con il seguente codice che conterrà la lunghezza di un array utilizzando il scalare parola chiave. Un array di 6 numeri è stato definito nel codice. IL scalare La parola chiave è stata utilizzata per contare il numero totale di elementi dell'array. Successivamente, sono stati aggiunti due valori all'array e di nuovo contati, il numero totale di elementi dell'array. La funzione join () è stata utilizzata per stampare i valori dell'array con lo spazio.

# Definisci una serie di numeri
@Numbers = (6, 5, 3, 1, 2, 8);
# Stampa i valori dell'array
Stampa "I valori di array sono: \ n", join (",@numeri)," \ n ";
# Stampa il numero totale di elementi dell'array
stampare "Elementi totali dell'array è", scalare @numbers, "\ n";
#Ad due nuovi elementi
$ numeri [@numbers] = 9;
$ numeri [@numbers] = 4;
# Stampa i valori dell'array dopo aver aggiunto due valori nell'array
Stampa "I valori di array dopo aver aggiunto due elementi sono: \ n", join (",@numeri)," \ n ";
# Stampa la lunghezza dell'array dopo l'inserimento
stampare "Elementi totali dell'array è", scalare @numbers, "\ n";

Produzione

Verrà visualizzato il seguente output dopo aver eseguito il codice sopra. Il numero totale di elementi dell'array dopo aver aggiunto due elementi è 6+2 = 8.

Esempio-3: conta la lunghezza dell'array usando il simbolo "#"

Un altro modo di contare il numero totale di elementi dell'array è usare il simbolo "#". L'ultimo indice dell'array viene conteggiato usando il simbolo "#". Quindi gli elementi di array totali possono essere contati aggiungendo 1 con l'ultimo valore dell'indice. Crea un file Perl con il seguente codice che conta la lunghezza dell'array utilizzando il simbolo "#". Un array di 5 numeri galleggianti è stato definito nel codice. IL pop() La funzione è stata utilizzata per rimuovere 3 elementi dall'array. IL giuntura() La funzione è stata utilizzata per stampare i valori dell'array con lo spazio.

# Dichiarare una serie di numeri di galleggiamento
@float_num = (45.89, 34.12, 56.34, 90.34, 45.23);
# Stampa i valori dell'array
Stampa "Valori array: \ n", join (",@float_num)," \ n ";
# Stampa la lunghezza dell'array
Stampa "Numero totale di elementi di array:", $#float_num+1, "\ n";
# Rimuovi tre elementi dall'array
pop @float_num;
pop @float_num;
pop @float_num;
# Stampa i valori dell'array
Stampa "Valori dell'array dopo aver rimosso tre elementi: \ n", join (,@float_num), "\ n";
# Stampa la lunghezza dell'array dopo aver rimosso tre valori
Stampa "Numero totale di elementi di array dopo aver rimosso gli elementi:", $#float_num+1, "\ n";

Produzione

Verrà visualizzato il seguente output dopo aver eseguito il codice sopra. Il numero totale di elementi dell'array dopo aver rimosso 3 elementi è 5-3 = 2.

Esempio-4: stampare i valori dell'array usando la lunghezza dell'array

Crea un file Perl con il seguente codice che utilizzerà la lunghezza dell'array per iterare i valori dell'array utilizzando per Loop e stampare i valori dell'array in ogni riga. L'ultimo valore dell'indice dell'array è stato usato qui per contare la lunghezza dell'array.

# Dichiara una serie di stringhe
@myarr = ('php', 'java', 'perl', 'bash', 'python');
# Itera i valori dell'array in base alla lunghezza dell'array
per ($ i = 0; $ i < $#myArr+1; $i++)

# Stampa i valori dell'array
Stampa $ myarr [$ i], "\ n";

Produzione

Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.

Esempio-5: conta la lunghezza dell'array usando loop

Un altro modo semplice per contare la lunghezza dell'array è usando qualsiasi loop. Crea un file Perl con il seguente codice che conterà la lunghezza dell'array utilizzando il per ciascuno ciclo continuo. Un array di 5 valori di stringa è stato definito qui. Nel codice è stata utilizzata una variabile di contatore per contare la lunghezza dell'array aumentando il valore del contatore di 1 in ogni iterazione del loop.

# Dichiara una serie di stringhe
@myarr = ('php', 'java', 'perl', 'bash', 'python');
# Inizializza il contatore
$ counter = 0;
stampare "valori di array: \ n";
# Itera i valori dell'array in base alla lunghezza dell'array
Forech $ val (@myarr)

# Stampa i valori dell'array
Stampa $ val, "\ n";
$ Counter ++;

# Stampa la lunghezza dell'array
stampare "\ ntotal Number of Array Elements:", $ Counter, "\ n";

Produzione

Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.

Conclusione

Il modo di contare i valori dell'array in Perl è stato mostrato in questo tutorial usando più esempi. L'utente Perl può utilizzare uno dei modi per scoprire la lunghezza dell'array e utilizzarla per risolvere i problemi di programmazione Perl.