Когда я должен использовать & для вызова подпрограммы Perl?

Я часто злоупотребляю &, но в основном потому, что я делаю странные вещи интерфейса. Если вам не нужна одна из этих ситуаций, не используйте &. Большинство из них - это просто доступ к определению подпрограммы, а не вызов подпрограммы. Все это в perlsub.

• Взятие ссылки на именованную подпрограмму. Вероятно, это единственная распространенная ситуация для большинства Perlers:

   my $sub = \&foo;
  

• Аналогично, присваивая typeglob, который позволяет вам вызвать подпрограмму с другим именем:

   *bar = \&foo;
  

• Проверка того, что подпрограмма определена, как вы можете в тестовых наборах:

   if( defined &foo ) { ... }
  

• Удаление определения подпрограммы, которое не должно быть общим:

   undef &foo;
  

• Предоставление подпрограммы диспетчера, единственной задачей которой является выбор правильной подпрограммы для вызова. Это единственная ситуация, в которой я использую & для вызова подпрограммы, и когда я ожидаю много раз вызывать диспетчера и выжимать небольшое количество операций из операции:

   sub figure_it_out_for_me {
      # all of these re-use the current @_
        if( ...some condition... ) { &foo     } 
     elsif( ...some other...     ) { &bar     }
     else                          { &default }
     }
  

• Чтобы перейти в другую подпрограмму с использованием текущего стека аргументов (и заменить текущую подпрограмму в стеке вызовов), выполняется непрактичная операция при диспетчеризации, особенно в AUTOLOAD:

   goto ⊂
  

• Вызвать подпрограмму, которую вы назвали после встроенного Perl. & всегда дает вам пользовательский. Это почему мы учим его в Learning Perlя > . Вы действительно не хотите делать это нормально, но это одна из особенностей &.

Есть несколько мест, где вы могли бы их использовать, но есть лучшие способы:

• Чтобы вызвать подпрограмму с тем же именем, что и встроенный Perl. Просто не имеют подпрограмм с тем же именем, что и встроенный Perl. Проверьте perlfunc, чтобы просмотреть список встроенных имен, которые вы не должны использовать.

• Чтобы отключить прототипы. Если вы не знаете, что это значит или почему вы хотите, не используйте &. Некоторый код черной магии может понадобиться, но в таких случаях вы, вероятно, знаете, что делаете.

• Чтобы разыменовать и выполнить ссылку подпрограммы. Просто используйте нотацию ->.

Форма & подпрограмма() отключает проверку прототипов. Это может быть или не быть тем, что вы хотите.

http://www.perl.com/doc/manual/html/pod/perlsub.html#Prototypes

Прототипы позволяют указывать числа и типы аргументов подпрограммы и проверять их во время компиляции. Это может обеспечить полезную диагностическую помощь.

Прототипы не применяются к вызовам методов или вызовам, выполненным в старомодном стиле с использованием префикса.

и необходимо указать или разыменовать подпрограмму или ссылку на код

например.

sub foo {
   # a subroutine
}

my $subref = \&foo; # take a reference to the subroutine

&$subref(@args);  # make a subroutine call using the reference.

my $anon_func = sub { ... }; # anonymous code reference
&$anon_func(); # called like this

Протипы также не применимы к ссылкам подпрограмм.

Форма подпрограммы также используется в так называемой форме magic goto.

Выражение goto &subroutine заменяет текущий вызывающий контекст вызовом именованной подпрограммы с использованием текущего значения @_.

По сути, вы можете полностью переключить вызов на одну подпрограмму с вызовом названного. Это обычно наблюдается в блоках AUTOLOAD, где может быть сделан запрос отложенной подпрограммы, возможно, с некоторой модификацией к @_, но он полностью смотрит на программу, как если бы это был вызов именованного элемента.

например.

sub AUTOLOAD {
    ...
    push @_, @extra_args; # add more arguments onto the parameter list
    goto &subroutine ; # change call another subroutine, as if we were never here
}

}

Потенциально это может быть полезно для устранения хвостового вызова, я полагаю.

см. подробное объяснение этого метода здесь

Я прочитал аргументы против использования '&', но я почти всегда использую его. Это экономит мне слишком много времени, чтобы не делать этого. Я трачу очень большую часть своего времени кодирования в Perl и ищу, какие части кода вызывают определенную функцию. С ведущим &, я могу найти и найти их мгновенно. Без ведущего &, я получаю инструкции определения функции, комментарии и отладки, обычно увеличивая количество кода, которое я должен проверить, чтобы найти то, что я ищу.

Главное не использовать '&' вы покупаете, вы можете использовать прототипы функций. Но прототипы функций Perl могут создавать ошибки так часто, как они их предотвращают, потому что они возьмут ваш список аргументов и переинтерпретируют его так, как вы не можете ожидать, так что вызов функции больше не пропускает аргументы, которые он буквально говорит, что это делает.