ottenere dati di array dal programma principale . Un altro array " new_array " conterrà i dati invertiti.
2
rimuovere l'ultimo elemento dalla matrice iniziale con la funzione " pop" .
3
Aggiungi che elemento come il primo al nuovo array con la funzione " shift"
4 Ripetere i punti 2 e 3 fino a quando la matrice iniziale diventa vuota . tutti i suoi elementi vengono trasferiti alla nuova in ordine inverso .
5
Il programma Perl di lavoro è inferiore a # programma startsmy $ array = [ qw ( 1 2 6 7,4 9 25 12,6 2 6 ) ] ; # Esempio arraymy $ new_array = [ ] ; print " $ @ matrice \\ n "; reverse_array ( $ array , $ new_array ) ; print" @ $ new_array \\ n "; # Stampa del nuovo arrayexit ;
sub
reverse_array {my ( $ array , $ new_array ) = @ _ ; # Fase 1 . Leggi arraywhile iniziale ( @ $ array ) {my $ entry = pop ( @ $ array ) ; # Step 2 . rimuovere l' ultimo elemento della arraypush iniziale @ $ new_array , $ entry ; # Fase 3 . Aggiungere l'elemento al nuovo array come primo } }
6
L'output del programma è come segue1 2 6 7,4 9 25 12,6 2 6 <--- iniziale array6 2 12,6 9 25 7,4 6 2 1 <--- nuovo array arrayThe è invertita .
Programmazione © www.354353.com