Programando em Perl (parte 2)
Nesta segunda parte da série programando em Perl veremos como declarar e manipular arrays.
Parte 4: Funções e arrays - função push
De início, prepare a estrutura do nosso programa.
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:
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().
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:
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.
#!/usr/bin/perl
@letras = ("a","b","c");
exit;
@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;
@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;
@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;
@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.
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