在 Perl 中使用文件参数执行 JAR 文件

Question

我目前仍在学习 Perl，并一直在尝试让 Perl 脚本正常工作。

这是一个简单的脚本，它执行一个以文本文件作为输入参数作为其配置文件的 Java JAR 文件。

例如，如果我要在命令行中正常执行 jar：

java -jar myfile.jar sometextfile.txt

我想在 Perl 中执行此操作。到目前为止，我有：

open(INPUT, "<$ARGV[0]");

my @args = ("java", "-jar", "nyfile.jar", INPUT);
system(@args);

close(INPUT);

脚本在执行时似乎没有传递输入文件。我做错了什么？

提前感谢我能得到的任何帮助。

Answer 1

不要在 Perl 中打开文件，只需将文件名（作为参数）传递给 Java：

my @args = ("java", "-jar", "nyfile.jar", $ARGV[0]);