使用命名参数在 perl 脚本中运行 perl 脚本

Question

我正在编写一个 Perl 程序，它必须在不同的输入上多次运行几个 Perl 脚本。

我尝试使用的脚本是 count.pl 和 statistic.pl 来自 Text::NSP。 这些不是我自己写的，所以我不想尝试将它们重构为一个模块。

我看了 a similar question 并弄清楚如何使用system 方法 IPC::System::Simple.

但是，我想使用count.pl 和statistic.pl 中的命名参数。我还没有弄清楚如何做到这一点。这是我当前的代码：

system($^X, token="valid_tokens.txt", "/Users/cat/perl5/bin/statistic.pl", "ll.pm", "lab01_jav_bigrams.ll",
"/Users/cat/Perl_scripts/214_Final_project/lab01_java_bigrams.cnt");

这是我得到的错误：

在 ngram_calcs.PL 第 22 行，“valid_tokens.txt”附近，不能修改标量赋值中的常量项，在 ngram_calcs.PL 第 22 行使用“strict subs”时，不允许使用裸词“token”。

值得注意的是，在我添加命名参数之前，代码运行良好。如何为IPC::System::Simple 提供命名参数？还是有更好的方法来做我想做的事情？

编辑：谢谢，Haukex，我确实有错误的参数，并且使用“--token=valid_tokens.txt”有效。

即使问题解决了，我也会分享更多背景信息，以便其他看到的人受益。在命令行上我会输入：

count.pl -token validtokens.txt lab01_java_bigrams.cnt Users/cat/CS214/lab01_java.txt
statistic.pl -score 6.63 ll.pm lab01_java.ll lab01_java_bigrams.cnt

这是正确的 perl 代码：

system($^X, "/Users/cat/perl5/bin/count.pl", "--token=valid_tokens.txt", "lab01_java_bigrams.cnt", $filename);
system($^X, "/Users/cat/perl5/bin/statistic.pl", "--score=6.63", "ll.pm", "lab01_java_bigrams.ll", "/Users/cat/Perl_scripts/214_Final_project/lab01_java_bigrams.cnt");

Answer 1

假设您对statistic.pl 的调用基本正确，system 的参数需要如下所示

system($^X,
    "/Users/cat/perl5/bin/statistic.pl",
    qq/token="valid_tokens.txt"/,
    "ll.pm",
    "lab01_jav_bigrams.ll",
    "/Users/cat/Perl_scripts/214_Final_project/lab01_java_bigrams.cnt"
);

即所有参数都属于在程序文件之后，并且整个命名参数字符串必须用引号引起来

请阅读下面 haukex 的评论以了解另一个潜在错误

Answer 2

我对您的 system 调用感到困惑。查看statistic.pl 和count.pl 的来源，似乎只有后者采用token 参数，但您似乎没有运行count.pl。 $^X 是当前运行的 Perl 解释器，它通常后面跟 interpreter 的任何参数，然后是脚本的名称，然后是 脚本的任何参数，所以将token 参数放在脚本之前对我来说没有意义。

例如，如果您尝试将count.pl 的输出通过管道传输到statistic.pl，则必须进一步解释，因为这是IPC::System::Simple 无法处理的（至少在不调用shell 的情况下） ，我不建议这样做），并且您需要更高级的模块，例如IPC::Run。现在，我假设您想将 token 参数传递给支持它的脚本。

命令行参数只是字符串。如果您要从 *NIX shell 编写类似./script.pl token="test file" foo bar 的内容，那么 shell 将接管对空格和引用的解释。 script.pl 将得到一个字符串列表，如 ("token=test file", "foo", "bar")（注意 shell 如何处理那里的引号）。

这个字符串列表是您需要传递给system 的内容，它不一定与您在命令行上键入的内容相同。由被调用程序来解释这些参数。您正在运行的两个脚本使用Getopt::Long，并且命名参数需要以两个破折号作为前缀。所以这样的事情应该可以工作：

system($^X, "/Users/cat/perl5/bin/count.pl", "--token=valid_tokens.txt", ...);

关于如何传递包含引号等特殊字符的参数（在这种情况下不适用），Perl 中有多种语法："--foo=\"bar\""、'--foo="bar"' 或q{--foo="bar"}（参见Quote and Quote-like Operators） .

Answer 3

你可以试试这个格式吗？

system('/Users/cat/perl5/bin/statistic.pl  --token valid_tokens.txt  ll.pm  lab01_jav_bigrams.ll  /Users/cat/Perl_scripts/214_Final_project/lab01_java_bigrams.cnt');

但我检查了 CPAN 模块的来源，似乎 token 是 count.pl 的选项，但不是 statistic.pl。

无论如何，任何选项都可以指定类似于--token valid_tokens.txt。

希望对您有所帮助！