Почему Perl :: Critic не любит использовать shift для заполнения переменных подпрограммы?

Ответ прост: Perl :: Critic здесь не следует за PBP. В книге прямо говорится, что идиома сдвига не только приемлема, но и предпочтительна в некоторых случаях.

Запуск perlcritic с --verbose 11 объясняет политики. Однако не похоже, что ни одно из этих объяснений относится к вам.

Always unpack @_ first at line 1, near 
'sub xxx{ my $aaa= shift; my ($bbb,$ccc) = @_;}'.
  Subroutines::RequireArgUnpacking (Severity: 4)
    Subroutines that use `@_' directly instead of unpacking the arguments to
    local variables first have two major problems. First, they are very hard
    to read. If you're going to refer to your variables by number instead of
    by name, you may as well be writing assembler code! Second, `@_'
    contains aliases to the original variables! If you modify the contents
    of a `@_' entry, then you are modifying the variable outside of your
    subroutine. For example:

       sub print_local_var_plus_one {
           my ($var) = @_;
           print ++$var;
       }
       sub print_var_plus_one {
           print ++$_[0];
       }

       my $x = 2;
       print_local_var_plus_one($x); # prints "3", $x is still 2
       print_var_plus_one($x);       # prints "3", $x is now 3 !
       print $x;                     # prints "3"

    This is spooky action-at-a-distance and is very hard to debug if it's
    not intentional and well-documented (like `chop' or `chomp').

    An exception is made for the usual delegation idiom
    `$object->SUPER::something( @_ )'. Only `SUPER::' and `NEXT::' are
    recognized (though this is configurable) and the argument list for the
    delegate must consist only of `( @_ )'.

Важно помнить, что многие материалы в Perl Best Practices - это всего лишь мнение одного человека о том, что выглядит лучший или самый простой в использовании, и неважно, сделаете ли вы это по-другому. Об этом Дамиан говорит во вступительном тексте к книге. Нельзя сказать, что это все - в этом есть много абсолютно важных вещей: например, использование strict.

Поэтому, когда вы пишете свой код, вам нужно решить для себя, какими будут ваши собственные передовые практики, и использование PBP является такой же хорошей отправной точкой, как и любая другая. Тогда оставайтесь в соответствии со своими собственными стандартами.

Я стараюсь следить за большинством вещей в PBP, но у Дамиана могут быть мои подпрограммы-аргументы shift и мои unless, когда он вырывает их из моих холодных мертвых кончиков пальцев.

Что касается Critic, вы можете выбрать, какие политики вы хотите применять, и даже создать свои собственные, если они еще не существуют.

В некоторых случаях Perl :: Critic не может точно обеспечить соблюдение руководящих принципов PBP, поэтому он может обеспечить приближение, которое пытается соответствовать духу руководящих принципов Конвея. И вполне возможно, что мы неверно истолковали или неправильно применили PBP. Если вы обнаружите что-то, что плохо пахнет, отправьте сообщение об ошибке по адресу [email protected], и мы сразу же рассмотрим его.

Спасибо,

-Джефф

Я думаю, вам следует избегать переключения передач, если в этом нет необходимости!

Просто наткнулся на такой код:

sub way {
  my $file = shift;
  if (!$file) {
    $file = 'newfile';
  }
  my $target = shift;
  my $options = shift;
}

Если вы начнете что-то менять в этом коде, есть большая вероятность, что вы случайно измените порядок смен или, возможно, пропустите одну, и все пойдет на юг. Кроме того, его трудно читать - потому что вы не можете быть уверены, что действительно видите все параметры для подпрограммы, потому что некоторые строки ниже могут быть где-то еще одним сдвигом ... И если вы используете некоторые регулярные выражения между ними, они могут заменить содержимое $ _ и начинают происходить странные вещи ...

Прямым преимуществом использования распаковки my (...) = @_ является то, что вы можете просто скопировать часть (...) и вставить ее туда, где вы вызываете метод, и иметь красивую подпись :) вы даже можете использовать ту же переменную - имена заранее и ничего менять не надо!

Я думаю, что сдвиг подразумевает операции со списком, где длина списка является динамической, и вы хотите обрабатывать его элементы по одному или когда вам явно нужен список без первого элемента. Но если вы просто хотите назначить весь список параметрам x, ваш код должен указать это с помощью my (...) = @_; никому не нужно удивляться.