相关疑难解决方法(0)

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

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

我搜索谷歌,但我没有找到使用拆分没有参数的解释,这种用途是否与"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} ++;
  }
}