Выполнение файла JAR с аргументом файла в Perl

Question

В данный момент я все еще изучаю Perl и пытаюсь заставить работать скрипт Perl.

Это простой скрипт, который выполняет файл JAR Java с текстовым файлом в качестве входного параметра в качестве егоконфигурационный файл.

Например, если бы я обычно выполнял 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]);