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
Uma array é declarada no Perl com o símbolo (@).
Após o simbolo, informamos o nome, por exemplo, @meses.
Para definirmos os valores, devemos então abrir um colchete "(".
Definimos os valores. (Se for string, podemos colocar entre aspas)
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:
(http://theperl.ismys...aveis/array.cgi)
#!/usr/bin/perlprint "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);...
VEJA MAIS EM: http://perlpoint.wor...larray-no-perl/
