Função Perl shift

Descrição

Esta função retorna o primeiro valor em um array, excluindo-o e deslocando os elementos da lista de arrays para a esquerda em um. Se ARRAY não for especificado, desloca o array @_ dentro de uma sub-rotina ou @ARGV caso contrário. shift é essencialmente idêntico a pop, exceto que os valores são tirados do início da matriz em vez do final.

Sintaxe

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

shift ( [ARRAY] )

shift

Valor de retorno

Esta função retorna undef se o array estiver vazio, caso contrário, retorna o primeiro elemento do array.

Exemplo

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

#!/usr/bin/perl

@array = (1..5);
while ($element = shift(@array)) {
   print("$element - ");
}
print("The End\n");

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

1 - 2 - 3 - 4 - 5 - The End