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

はただのJavaに（引数として）、ファイル名を渡し、Perlでファイルを開けないでください：

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