Variável em Nome de Variável

Variável em Nome de Variável – Parece meio redundante, não é mesmo??

Mas não é!

Na verdade, esta é uma técnica (meio que gambiarra) de simular um vetor utilizando variáveis simples.

Pode ser bastante útil.
Pelo menos para mim foi.

Aí vai:

$cor=”verde”;

$cor_verde=”arvore”;

print ${“cor_$cor“};

Assim, você terá variáveis simples simulando vetores!

Abraços

Array no Perl

Um tipo de variável comum em quase todas as linguagens de programação é a Array. Vamos aprender como utilizá-la dentro do Perl.

As Arrays (arrêis) são um tipo de variável que armazenam dados em forma de lista. Cada objeto da lista é chamado de elemento, e estes elementos – no Perl – podem ser tanto strings como numéricos, ou qualquer outro tipo de dados inclusive uma outra variável.

Criando um Array

1. Uma array é declarada no Perl com o símbolo (@).
2. Após o simbolo, informamos o nome, por exemplo, @meses.
3. Para definirmos os valores, devemos então abrir um colchete “(“.
4. Definimos os valores. (Se for string, podemos colocar entre aspas)
5. Fechamos a lista com o  colchete “)”

Esta é a simples síntaxe dos arrays no Perl. Quando estamos listando os valores da lista, podemos quebrar ela em várias linhas para que fique fácil de entender, porém, não podemos esquecer de fechar o colchete que informa ao Perl que a lista se encerra ali.

Exemplo:

@meses = (“Janeiro”,
   “Fevereiro”,
   “Março”,
   “Abril”,
   “Maio”,
   “Junho”,
   “Julho”,
   “Agosto”,
   “Setembro”,
   “Outubro”,
   “Novembro”,
   “Dezembro”);

 Acessando um Array

Depois que criamos o array, todo o conjunto poderá ser acessado se chamarmos @meses, mas se quisermos também podemos acessar o conteudo de apenas um ítem da lista informando sua devida posição da seguinte forma: $meses[POSICAO] onde POSICAO é a ordem que o ítem ocupa na lista.

Toda lista começa sempre em 0 (zero).

Agora digamos que queremos mostrar ao usuário o mês de Janeiro na tela.
Devemos apenas chamar a variável, da seguinte forma:

print $meses[0];

Informamos assima posição 0 (zero) porque Janeiro é o primeiro elemento da lista. 

E para acessar o último elemento da lista?

 print $meses[11];

Isto irá mostrar Dezembro. Porque Dezembro é o ítem que ocupa a 11º posição da lista @meses.

Tamanho de um Array

Se quisermos mostrar o tamanho de um Array, devemos apenas chamar o nome da Array da seguinte forma: $#array. Isto irá retornar o número de elementos que estão na lista.

Mas lembre-se de que o Perl considera o zero como o primeiro elemento da lista.

No nosso exemplo então, ele retornaria 11 (onze). Caso quisermos obter o número real, podemos usar a expressão $#array + 1;
Se isto fosse feito em nosso exemplo, teríamos como resultado o número 12, porque nossa lista contém 12 elementos se contarmos a partir de 1.

---

Veja um exemplo completo:
(array.cgi)

#!/usr/bin/perl
print “Content-type:text/html\n\n”;

@meses = (“Janeiro”,
   “Fevereiro”,
   “Março”,
   “Abril”,
   “Maio”,
   “Junho”,
   “Julho”,
   “Agosto”,
   “Setembro”,
   “Outubro”,
   “Novembro”,
   “Dezembro”);
print “O ano começa em “.$meses[0];
print “<br />”;
print “O Natal é um feriado do mês de “.$meses[11];
print “<br />”;
print “O número de meses de um ano é “.($#meses+1);

---