在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]);