Função Perl pop

Descrição

Esta função retorna o último elemento de ARRAY, removendo o valor da matriz. Observe que ARRAY deve ser explicitamente uma matriz, não uma lista.

Se ARRAY for omitido, ele retira o último valor de @ARGV no programa principal ou quando chamado em eval STRING ou nos blocos BEGIN, CHECK, INIT ou END. Caso contrário, ele tenta extrair informações do array @_ dentro de uma sub-rotina. É o oposto de push, que quando usado em combinação, permite que você implemente "pilhas".

Observe que depois de aplicar pop o array será reduzido em um elemento.

Sintaxe

A seguir está a sintaxe simples para esta função -

pop ARRAY

pop

Valor de retorno

Esta função retorna undef se a lista estiver vazia e o último elemento do array.

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/usr/bin/perl -w

@a = (1, 2, 3, 4);
print("pop() ", pop(@a), "   leaves  ",@a, "\n");

Quando o código acima é executado, ele produz o seguinte resultado -

pop() 4  leaves 123