Что делает shift() в Perl?

Question

Что может означать следующая линия?

my $x = shift; 

Answer 1

Это, как правило, идиома: $ х является локальным переменным присваиваются первым параметр, передаваемого в подпрограмму, хотя.

my ($x) = @_; 

, вероятно, более ясный (и он не изменяет список аргументов).

Answer 2

Функция shift удаляет первый элемент из массива и возвращает его. Массив укорачивается одним элементом.

Массив по умолчанию (если он не указан как параметр) равен @_, если вы находитесь в функции, или @ARGV, если вы находитесь в области файлов.

Таким образом, в этом случае $x либо устанавливается на первый параметр функции, либо на первый параметр командной строки.

Answer 3

Если вы находитесь в подпрограмме, то эта строка будет shift по адресу @_ (переданные параметры).
Таким образом, $x будет первым предметом popped от массива @_.

Так обычно вы увидите $x = shift if @_;

Answer 4

shift() является встроенным в подпрограмме Perl, который принимает массив в качестве аргумента, а затем возвращается и удаляет первый элемент в этом массиве. Общепринятой практикой является получение всех параметров, переданных в подпрограмму с помощью вызовов shift. Например, скажем, у вас есть подпрограмма foo, которая принимает три аргумента. Один из способов, чтобы получить эти параметры, назначенные для локальных переменных с shift следующим образом:

sub foo() { 
    my $x = shift; 
    my $y = shift; 
    my $z = shift; 
    # do something 
} 

Путаница в том, что она появляется сдвиг не передается массив в качестве аргумента. Фактически, он передается массивом «default» неявно, который находится в подпрограмме @_ или @ARGV вне подпрограммы.

Answer 5

В Perl многие методы используют переменные по умолчанию ($_ и @_), если вы явно не укажете аргументы. Ваш код идентичен:

my $x = shift @_; 

Как отметил PullMonkey ранее, в подпрограмме, @_ содержит аргументы, передаваемые этой подпрограммы (как описано в perlsub). shift удалит значение первого аргумента от @_ и сохранит его в $x, поэтому $_[0] теперь предоставит вам второй аргумент, переданный вашей подпрограмме.

Answer 6

на языке непрофессионала, с очень HighLevel зрения, сдвиг принимает первый элемент массива (крайняя левая часть), в то время как противоположная поп-, который принимает последний элемент массива (крайний правый часть).

 
my @array1=(5,6,7,8,9); 
my $x = shift @array1; 
print "$x\n"; # 5 
print "@array1\n"; # 6 7 8 9