perl - 在 perl 中没有参数的拆分

Question

我是 perl 的新手，我想知道这行代码是什么意思？

($q,$dummy, $d,$v) = split;

我通过谷歌搜索，但我没有发现使用 split without argument 的解释，这种使用与“while”块有关吗？

完整的代码片段是:

open(T,"$opt_judgments") ||  die "can't open judgment file: $opt_judgments\n";
while (<T>) {
  if ($opt_trec) {
    ($q,$dummy, $d,$v) = split;
  } else {
    ($q,$d,$v) = split;
  }
  $dict{$q ."=".$d} =$v;
  if ($v != 0) {
    $totalRels{$q} ++;
  }
}

Answer 1

它在空白处拆分当前行( $_ )。引用手册:

If EXPR is omitted, splits the $_ string. If PATTERN is also omitted, splits on whitespace (after skipping any leading whitespace).