Programando em Perl (parte 2)

andrezc

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

[ Hits: 37.583 ]

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

CrossOver - Programas de Windows em seu GNU/Linux

Recuperando arquivos em um Windows corrompido com Linux

Introdução aos sistemas operacionais

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

Computação Forense - Entendendo uma perícia

Leitura recomendada

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

Comparação entre Tcl e Perl

Programando em Perl (parte 1)

Um pouco de PERL

Script Perl para consultas em base LDAP e/ou Active Directory

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