perlスクリプト上から外部プログラムの呼び出し

Question

かなり以前より動かしているperlスクリプト群があるのですが、モジュールの動作の関係で、perlインタプリタを更新することになりました。

すると、今まで動作していたスクリプトの内、一部不具合が出てくるようになりました。ご助力いただけると幸いです。
尚、動作環境は以下のとおりです。
OS：WindowsXP 32bit
Perl:v5.12.1(ActivePerl)からv5.26.2.1(StrawberryPerl)

今回、インタプリタの更新に伴って、ActivePerlからStrawberryPerlに切り替えてみたのですが、もしかしたらこれも原因の一つかもしれません。

該当のソースコード

#下記の変数はそれぞれ値は代入されているものとします。
my $aaa;
my $bbb;
my $ccc;
system("call java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt");

本来なら$ccc.txtにaaa.jarの実行結果が入るはずですが、$ccc.txtを参照しても何も表示されない(空のファイルの状態)。

試したこと

aaa.jarに関してはコマンドプロンプト上からは正常にプログラムが動作することを確認しています。
また、

java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt

という形でコマンドプロンプトから実行したところ、結果は正常に$ccc.txtに格納されました。

my $aaa;
my $bbb;
my $ccc;
system("call", "java", "-jar", "aaa.jar", "-cmip", "$aaa", "-cmmac", "$bbb", ">$ccc.txt");

という書式に変更してもダメでした。

Answer 1

可能性としては、
・スクリプト動作時にjava.exeにパスが通っていない
・aaa.jarがスクリプトのプロセスのカレントディレクトリにない
など。

Comments

[misaki_f]

コマンドをコマンドプロンプト上から直接叩くと問題なく動作するので、多分java.exeにパスが通ってないはずはないかと。
aaa.jarはperlスクリプトと同一ディレクトリに保存していますが、これだと問題なのでしょうか？

[KojiDoi]

たとえば、system("java -help >c:\test.txt")としてみて、c:\test.txtにjavaのヘルプがセーブされるか？ これがうまくいくようならjava.exeの呼び出しにはせいこうしているということになります。
次に、system("java -jar フルパス/aaa.jar >c:\test.txt")としてみて、c:\test.txtとしてみて正常な結果が返ってくるか。これがうまくいくならファイル名指定の問題だし、これがうまくいかないなら別のところに問題があります。最後に、system("java -jar フルパス/aaa.jar >c:\test.txt 2>c:\error.txt")などとして、error.txtになにかエラーが出てこないか見てみてはどうでしょう。こんな感じで「絶対うまくいくはずのsystem()」から徐々に本番の状況に寄せていって問題を確かめるしかないと思います。

[otn]

> コマンドをコマンドプロンプト上から直接叩くと問題なく動作するので、
コマンドプロンプトと、Perlプロセス内とで、PATH環境変数が同一であることが確認取れていれば良いのですが。

> aaa.jarはperlスクリプトと同一ディレクトリに保存していますが、これだと問題なのでしょうか？
スクリプトと同一ディレクトリかどうかは関係ありません。
あくまで、カレントディレクトリにあるかどうかです。
カレントディレクトリの意味がわからなければ、aaa.jar 等も全部ファイルはフルパスで指定してください。

Answer 2

java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt

$bbb $ccc の中身は何でしょうか?　ダブルクオーテーションで括ると変数が展開されますから、シェルに渡されて実行されるのはこういう形ではないはずですね。

Comments

[misaki_f]

失礼しました。
$aaaはipアドレス(IPv4)
$bbbはMACアドレスになります。
$cccは適当な文字列を挿入しています。
当然ながらコマンドプロンプトにて実行する際はそれぞれ値を置換しています。

java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt

についてprintで出力してみると各変数は予め代入した値で展開されていましたので、各変数の値は正常と思います。

[KojiDoi]

カレントディレクトリはどうなっていますか。あと、system（）から呼び出すときに限ってcallをつけている意図は何ですか？

[misaki_f]

カレントディレクトリはperlスクリプトの存在する階層でした。また、aaa.jarも同一ディレクトリに存在しています。
callについては、申し訳ありません。この「call」についてはどう言う意味かよくわからなくて。
java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt
でも
call java -jar aaa.jar -cmip $aaa -cmmac $bbb > $ccc.txt
でもコマンドプロンプトからはどちらも挙動は変わりませんでした。尚、system();経由だとcallの有無関係なしに動作しませんでした。