Что именно делает эта подпрограмма?

Question

Кусок исторического Perl-кода, который у меня есть, имеет следующую функцию:

sub binds { join(",", ("?")x$_[0]) }

Позже он вызывается с binds(4) или подобным. Из того, что я могу сказать, это объединение ? с и , с, но я теряюсь относительно того, как именно, и при этом я не понимаю часть x$_[0].

Answer 1

Эта функция принимает целое число (скажем, n) в качестве первого аргумента и возвращает строку n вопросительных знаков, разделенных запятыми.Вот как это выглядит:

sub binds {
  join(",", ("?") x $_[0]);
  #         │     │ └──── the first argument to the subroutine.
  #         │     └── the repetition operator (think multiply).
  #         └─── a list containing only the string literal "?".
}
binds(4) # => "?,?,?,?"

Вероятно, это служебная функция для интерфейса базы данных для создания указанного числа ? заполнителей, которые позже будут связаны с некоторыми конкретными значениями как часть оператора SQL.

Answer 2

Давайте спросим мнение Perl о том, как разобрать это.

$ perl -MO=Deparse -e'sub binds { join(",", ("?")x$_[0]) }'
sub binds {
    join ',', ('?') x $_[0];
}
-e syntax OK

С добавлением пробела части становятся прозрачными.

• x является оператором повторения.
• $_[0] - первый аргумент подпрограммы, см. @_.

Answer 3

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

$ _ [0] - это количество связей, binds (4) вернет "?,?,?,?".