Programando em Perl (parte 2)

andrezc

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

[ Hits: 35.952 ]

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

4 0

Denuncie Favoritos Indicar Impressora

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 \n@nuns \n");
pop(@alf);
pop(@nuns);
print("@alf \n@nuns \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: \n@alf");
push(@alf,"g");
print("\nVamos adicionar um elemento ao nosso array: \n@alf");
$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

Recuperando arquivos em um Windows corrompido com Linux

Gerenciamento de programas no Ubuntu através do Synaptic

Programando em Perl (parte 1)

lib cURL - Trabalhe com URLs em C

Instalando e utilizando o LimeWire no Debian

Leitura recomendada

Um pouco de PERL

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

Programando em Perl (parte 1)

Comparação entre Tcl e Perl

Catalyst Framework Perl - Parte III

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

0 0

[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.

1 0

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

Muito interessante.

1 0

[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

1 0