Perltex：如何输出到最新的文件？

我想：

• 逐行读取文本文件

• 结构以mwe给出

• 存储在数组中，并按其中一列对它们进行排序

• 排序数组应该像perltex的普通数组一样出现在最新文件中

远离这个目标，我很难将Perl变量转换为latex输出

我在文档和网络中没有发现模拟代码。这里也没有“perltex”标签，不过我希望有人能帮忙

\documentclass[]{scratcl}
\usepackage{perltex}
%同一目录中文本文件“verfile”的内容
%迪埃和弗斯“奥农和特鲁尔”奥宁和艾勒·R·格亨德和费尔特\\
%die&Vergoldung&tr.和vergolden&in alle R.gehend&fehlt\\
%die&Vergeudng&tr.和vergeuden&in alle R.gehend&fehlt\\
\开始{document}
\perlnewcommand{\setline}[1]{$line=$\u0]；返回“}%cp perltex doc第5页
\perlnewcommand{\getline}{$line；}
\佩尔多{
$verfile=“verfile”；
打开（VF，“$verfile”）| | die“$！”；
而（）{
$line=$；#作品：打印“$line\n”；
}
打印“循环后：$line\n”；
返回“\\setline{$line}”；
}
\getline
\结束{document}

---

目前，我只希望在数组工作的输出pdf文件中看到一行。所以问题仍然存在，为什么setline不起作用？

下面是一个如何创建表的示例。这将根据第一列的内容对

verfile

的列进行排序，然后创建一个LaTeX表：

\documentclass{article}
\usepackage{perltex}
\begin{document}
\perlnewcommand{\verfile}[0]{
  open (my $VF, '<', 'verfile') or die "$!";
  my @lines;
  while (my $line = <$VF>) {
      chomp $line;
      my @fields = split /&/, $line;
      push @lines, \@fields;
  }
  close $VF;
  my @sorted = sort {$a->[0] cmp $b->[0]} @lines;
  my $result = '
    \begin{table}
    \centering
    \begin{tabular}{cccccc}
  ';
  for my $line (@sorted) {
      $result .= (join ' & ', @$line) . "\n";
  }
  $result .= '\end{tabular}
  \end{table}
  ';
  return $result;
} % done

\verfile
\end{document}

\documentclass{article}
\usepackage{perltex}
\开始{document}
\perlnewcommand{\verfile}[0]{
打开（我的$VF，'我不确定你到底想做什么，但也许可以看看
datatool
包？这可能比使用perlPlease更容易。请提供一个预期输出的示例