Programação  
 
Conhecimento computador >> Programação >> Programação Perl >> 
Como reverter um Array
idiomas Praticamente toda a programação utilizar uma estrutura matriz para armazenar uma lista de dados . Por exemplo , " matriz ( 76 , 3 , 5 ) . " A matriz invertida que contêm os mesmos dados , mas para trás, isto é, " new_array ( 5 , 3 , 76 ) . " Perl, uma linguagem de programação de livre acesso, permite-lhe implementar um algoritmo muito elegante para inverter uma matriz que requer apenas quatro linhas de código. O algoritmo usa Perl funções internas "pop" e "push ". Coisas que você precisa
Computer
Show Mais instruções
Os Passos
1

Obter dados da matriz a partir do programa principal. Outra " new_array " matriz conterá dados invertidos.
2

Retire o último elemento da matriz inicial usando a função "pop".
3

Adicione que . elemento como o primeiro para a nova matriz com a função "shift"
4

Repita as etapas 2 e 3 até que a matriz inicial torna-se vazia, todos os seus elementos são transferidos para o novo na ordem inversa.
5

O programa Perl trabalho está abaixo # programa startsmy $ array = [ qw ( 1 2 6 25 9 12,6 7,4 2 6 ) ]; Exemplo # arraymy $ new_array = []; print " @ $ conjunto \\ n "; reverse_array ( $ array , $ new_array ); print" @ $ new_array \\ n "; # Imprimindo o novo arrayexit ;

sub reverse_array {my ( $ array , $ new_array ) = @ _ ; # Passo 1 . Leia arraywhile inicial ( @ $ array) {my $ entry = pop ( @ $ array ); # Passo 2 . remover o último elemento da arraypush @ $ new_array , $ entrada inicial; # Passo 3 . Adicione esse elemento para a nova matriz como a primeira }}
6

A saída do programa é o seguinte forma1 2 6 7,4 25 12,6 9 2 6 <--- array6 inicial 2 12,6 9 25 7,4 6 2 1 <--- nova matriz arrayThe é invertida.

Anterior :

Próximo : No
  Os artigos relacionados
·Como lançar Perl De SSH 
·Como ativar o Perl no Snow Leopard 
·Como encontrar o comprimento de uma matriz em Perl 
·Como contar palavras em uma String em Perl 
·Comparação de Perl Com Python 
·Como analisar um valor em Perl 
·Como adicionar um link com um script Perl 
·Como abrir um arquivo e gravar uma linha para outro arq…
·Como verificar um Perl -mail 
·Como testar um CGI Script Sendmail 
  Artigos em destaque
·Como instalar o PHP Nuke 
·Como criar um script PHP Login de MySQL 
·Como adicionar uma borda usando programação HTML 
·Como alterar valores nulos para Espaços Usando AWK 
·Como impedir que um barra de navegação de empurrar pa…
·Como encontrar Scripts 
·Como converter Campos sinal Alpha Numérico em COBOL 
·Como inserir Ignorar ou Obter ID no MySQL 
·Como usar uma caixa de seleção para filtrar uma lista…
·Como girar Depoimentos em um site 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados