Programando em Perl (parte 2)

andrezc

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

[ Hits: 36.857 ]

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

4 0

Denuncie Favoritos Indicar Impressora

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

De início, prepare a estrutura do nosso programa.

#!/usr/bin/perl

@letras = ("a","b","c");
exit;

Vamos começar conhecendo a função push().

Para que serve o push()?

A função push é utilizada para a inserção de elementos no determinado array. Por exemplo, se eu tenho o array a,b e c, eu poderia inserir o elemento d. Só que o push() só serve para inserir elementos no final do array, neste caso o elemento d poderia ser inserido depois do elemento c, mas não antes do elemento a.

Vamos conhecer o seu uso:

#!/usr/bin/perl

@letras = ("a","b","c");
push(@letras, "d");
exit;

Agora vamos fazer um antes e depois. Como assim?

Exibirei o array "letras" antes da função push() e exibirei o array "letras" novamente depois da função push().

#!/usr/bin/perl

@letras = ("a","b","c");
print("@letras\n");
push(@letras, "d");
print("@letras\n");
exit;

A saída deste programa seria:

a b c
a b c d

Vamos agora fazer algo mais interessante, considerando o que aprendemos até agora:

#!/usr/bin/perl

@letras = ("a","b","c");
$x = $#letras + 1;
print("Atualmente nos temos $x letras. Sao elas: \n@letras\n");
push(@letras, "d","e","f","g");
$y = $#letras + 1;
print("Agora temos $y letras. Sao elas: \n@letras\n");
exit;

A saída do programa acima seria:

Atualmente nos temos 3 letras. Sao elas:
a b c
Agora temos 7 letras. Sao elas:
a b c d e f g

Bem fácil de usar, não acham?! Também não estarei explicando o código acima, pois tudo que eu usei nele foi explicado anteriormente.

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

Instalando e utilizando o LimeWire no Debian

O phishing e uma análise forense

Instalando o Debian em uma máquina virtual (VirtualBox)

Computação Forense - Entendendo uma perícia

Leitura recomendada

Comparação entre Tcl e Perl

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

Um pouco de PERL

Programando em Perl (parte 1)

Perl e MySQL

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