perl - 这个子程序到底是做什么的？

Question

我拥有的一段历史 Perl 代码具有以下功能:

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

稍后用 binds(4) 调用它之类的。据我所知，它正在加入 ? s 和 , s 但我不知道到底是怎么回事，我也不明白 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) # => "?,?,?,?"

创建指定数量 ?的数据库接口(interface)可能是一个实用函数占位符，稍后将作为 SQL 语句的一部分绑定(bind)到某些特定值。