Programando em Perl (parte 2)

Nesta segunda parte da série programando em Perl veremos como declarar e manipular arrays.

[ Hits: 34.143 ]

Por: André em 30/04/2010 | Blog: http://127.0.0.1


Funções e arrays - função pop



A função pop é utilizada para remoção de elementos no array e o mais interessante é que ela pode nos retornar qual elemento foi removido, utilizando uma variável. O que acontece é que essa variável recebe o elemento removido do array. Lembrando que a função pop só remove o último elemento.

Por exemplo, se tivermos o seguinte código:

#!/usr/bin/perl

@alf = ("a","b","c");
pop(@alf);
print("@alf \n");

exit;

Ao interpretarmos, teríamos como saída:

a b

Porque?

A função pop() esta recebendo um array chamado alf, e os elementos desse array são a, b e c, como o último é o c, o c será removido.

Outro exemplo:

#!/usr/bin/perl

@alf = ("a","b","c","d","f");
@nuns = ("1","2","3","4");
print("@alf \[email protected] \n");
pop(@alf);
pop(@nuns);
print("@alf \[email protected] \n");

exit;

A saída deste código seria:

a b c d f
1 2 3 4
a b c d
1 2 3

Isso pois primeiro ele exibiu os elementos dos arrays nuns e alf e depois removeu os últimos itens destes mesmos arrays e imprimiu novamente. Bem facinho né?!

Vamos agora atribuir a função pop a uma variável. Vamos analisar o código abaixo:

#!/usr/bin/perl

@alf = ("a","b","c","d","f");
print("@alf \n");
$x = pop(@alf);
print("@alf \n");
print("Ultima letra removida: $x \n");

exit;

Interpretando ele, teríamos a saída:

a b c d f
a b c d
Ultima letra removida: f

Neste caso devolvemos o valor removido, utilizando uma variável, neste caso a variável x.

Com tudo isso que aprendemos, poderíamos fazer uma brincadeira de inserção e remoção de elementos:

#!/usr/bin/perl

@alf = ("a","b","c","d","f");
print("Os elementos originais do nosso array sao: \[email protected]");
push(@alf,"g");
print("\nVamos adicionar um elemento ao nosso array: \[email protected]");
$x = pop(@alf);
print("\nVamos agora retirar o ultimo elemento, o elemento: $x \n");
print("@alf \n");
exit;

A saída do código acima seria:

Os elementos originais do nosso array sao:
a b c d f
Vamos adicionar um elemento ao nosso array:
a b c d f g
Vamos agora retirar o ultimo elemento, o elemento: g
a b c d f

Também não estarei explicando o código acima, pois todas as função ali utilizadas foram explicadas e trabalhadas até aqui neste artigo.

Página anterior     Próxima página

Páginas do artigo
   1. Introdução
   2. Utilizando os arrays
   3. Utilização das variáveis com os arrays
   4. Funções e arrays - função push
   5. Funções e arrays - função pop
   6. Conclusão
Outros artigos deste autor

O phishing e uma análise forense

Trabalhando com Java e SQL (parte 1)

Computação Forense - Entendendo uma perícia

Pentesting on PHP apps: XSS

L.F.A.Q : Linux Frequently Asked Questions

Leitura recomendada

Programando em Perl (parte 1)

Comparação entre Tcl e Perl

Um pouco de PERL

Módulos CPAN no Debian e distros GNU/Linux em geral

Autenticação mútua SSL em servidores de NF-e e CT-e

  
Comentários
[1] Comentário enviado por lestatwa em 02/05/2010 - 13:31h

Muito bem explicado o artigo! Você esta de parabéns!
Programo em C, Python e PHP, porém sempre ouvi falarem muito bem de Perl e tinha curiosidade.
Aguardo ansioso o artigo sobre C++!
Abraço!
Luís Eduardo Boiko Ferreira

[2] Comentário enviado por andrezc em 02/05/2010 - 14:05h

Obrigado Luis Eduardo, os próximos artigos dedicarei a 3º parte do Perl, se tudo correr bem, com direito a orientação e objetos e tudo e logo depois vou iniciar com o C++, levando até a orientação a objectos.

Um abraço.

[3] Comentário enviado por removido em 12/08/2010 - 15:53h

Muito interessante.

[4] Comentário enviado por heraldoaraujo em 26/07/2011 - 09:17h

Adorei o artigo mas quem quer aprofundar o conhecimento de perl recomendo o livro "Perl como programar" do autor Deite


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts