Variáveis de Array do Perl

Um tipo mais interessante das variáveis no Perl é a variável de Array que năo săo nada mas uma lista de entidades dos scalars (números e cordas do i'e). As variáveis de Array tęm o mesmo formato que aquele do variáveis escalares exceto que estăo prefixadas por um símbolo @.

A seguinte indicaçăo atribui a lista de tręs elementos ŕ variável de Array “@fruit” e uma lista de dois elementos a uma outra variável de Array “@music”.

@fruit = ("orange", "apple", "grape");
@music = ("violine", "flute");

O elemento de Array é alcançado usando os índices que partem de 0. Os suportes quadrados săo usados especificar o número de índice do elemento.

$fruit[2]

As atribuiçőes da Array

Como em todo o Perl, a mesma expressăo em um contexto diferente pode produzir um resultado diferente. A primeira atribuiçăo que é dada abaixo explode a variável @music de modo que seja equivalente ŕ segunda atribuiçăo.

@moremusic = ("organ", @music, "harp");
@moremusic = ("organ", "violine", "flute", "harp");

Isto deve sugerir uma maneira para adicionar elementos a uma Array. Uma maneira mais limpa adicionar elementos é usando a seguinte indicaçăo

push(@fruit, "eggs");

Os ovos săo introduzidos aqui na extremidade do @fruit da Array. Para introduzir mais de um artigo na Array usar um do seguinte método. A funçăo do impulso aqui retorna o comprimento da lista nova que é dada forma adicionando mais elementos.

push(@fruit, "eggs", "lard");
push(@fruit, ("eggs", "lard"));
push(@fruit, @morefood);

Para remover o último artigo da lista e para retorná-lo, nós usamos a funçăo do PNF. De nossa lista original a funçăo do PNF retorna enguias e o @food tem agora dois elementos:

$grub = pop(@fruit); # Now $grub = "grape"

Aqui é também possível atribuir a Array a uma variável escalar. Porque usual o contexto é importante. A seguinte linha atribui o comprimento do @fruit,

$f = @fruit;

mas a seguinte indicaçăo gira a lista na corda com o espaço entre cada elemento. Este espaço pode ser substituído por alguma da outra corda mudando o valor da variável especial “$”. Esta variável é apenas um entre muitas variáveis especiais do Perl, a maioria delas quais tęm nomes impares.

$f = "@fruit";

Nós podemos fazer atribuiçőes múltiplas ŕs variáveis escalares usando disposiçőes:

($x, $y) = ($z, $p); # Same as $x=$z; $y=$p;
($x, $y) = @fruit; # $x and $y are the first two
# items of @fruit.
($x, @somefood) = @fruit; # $y is the first item of @fruit
# @somefood is a list of the
# others.
(@somefood, $x) = @fruit; # @somefood is @fruit and
# $x is undefined.

A última atribuiçăo ocorre porque as disposiçőes parecem ser greedy, e o @somefood fará exame acima de tanto quanto do @fruit quanto ele poder. Conseqüentemente este formulário é evitado melhor. Finalmente, vocę pode querer encontrar para fora o índice do último elemento da lista. Para fazer isto para o uso da Array do @fruit a seguinte expressăo

$#fruit;

Como indicar disposiçőes

Porque o contexto é importante, năo deve demasiado surpreender que o seguinte código produzirá um resultado diferente:

print @fruit; # By itself
print "@fruit"; # Embedded in double quotes
print @fruit.""; # In a scalar context

Keywords: tutorial do Perl, certificados do Perl, Perl que programa, Perl ativo, download do Perl, Perl da amora, expressőes regulares do Perl, split do Perl, Array do Perl, página do certificado do Perl

HTML Quizes

XML Quizes