こんにちは。
perlのsystem()関数を使用してJavaを実行し
Javaの戻り値をPerlに返す。
以上の事を行いたいのですが、出来ません。
私が作成したソースと実行時のエラーを載せますので、
ご助言お願い致します。
尚、OSはLinuxです。
-----------------------
- Perl (CallTest.cgi) -
-------------------------------------
#!/usr/bin/perl
print "=== JavaCall START ===\n";
$Jret = "ABC";
print "PerlReturnBefore : " . $Jret . "\n";
$Jret = system("java Test");
print "PerlReturnAfter : " . $Jret . "\n";
--------------------
- Java (Test.java) -
-------------------------------------
class Test {
public static String main(String args[]) {
String ret = "XYZ";
return ret;
}
}
------------
- 実行結果 -
-------------------------------------
#perl CallTest.cgi
=== JavaCall START ===
PerlReturnBefore : ABC
Exception in thread "main" java.lang.NoSuchMethodError: main
PerlReturnAfter : 256
-------------------------------------
期待している実行結果は
=== JavaCall START ===
PerlReturnBefore : ABC
Exception in thread "main" java.lang.NoSuchMethodError: main
PerlReturnAfter : XYZ
です。
Javaの[public static String main]には戻り値が設定できないのでしょうか?
申し訳ありませんがご教授お願い致します。
以上の質問はPerlのカテゴリで良いのでしょうか?
Javaのカテゴリにしたら良かったでしょうか?
場違いの質問でしたらスミマセン。
No.8ベストアンサー
- 回答日時:
> 試してはみましたが、-1が返ってきます。
そうですか。
以下のソースで試したらうまくいったんですが。
//---------------------------
// test.java
//---------------------------
class test {
public static void main(String[] args) {
System.out.print("XYZ");
}
}
#----------------------------
# test.pl
#----------------------------
$ret = `java test`;
print "\$ret = ", $ret, "\n";
--------
実行結果
--------
$ret = XYZ
ありがとうございます。できました。
$ret = `java test`;
ではなく、
$ret = system(`java test`);
とやっていました。
system()の実行結果を返していたんですね。
No.7
- 回答日時:
>System.out.printで標準出力を使うだけでは、
>解決しないのです。
(No.3 回答に対するお礼 より)
え?
No.3の方の方法で、期待している実行結果
PerlReturnAfter : XYZ
が得られると思うのですが。
試してみましたか?
ご回答有難う御座います。
Perlの方での出力
print "PerlReturnAfter : " . $Jret . "\n";
で表示されるのでしょうか?
試してはみましたが、-1が返ってきます。
PerlReturnAfter : -1
falseが返ってきているという事でしょうか?
もし、そうなのであれば実行の仕方等に問題がありそうですね。
No.6
- 回答日時:
>System.exitを使用してみましたが、返される値は10進なのでしょうか?
>System.exit(1)の場合は、戻り値:256
>System.exit(2)の場合は、戻り値:512
戻り値は256倍した値が返されます。従って
1->256 2->512となります。又戻り値は最大255までしか
指定出来ません。
ご回答有難うございます。
やはりそうなのですか・・・
今回期待しているのは
「文字列の戻り値を返したい」
という事なので、他の方法で実装しようと思います。
(戻り値をファイルに出力させ、Perlで読み込む方法)
No.5
- 回答日時:
> Perl側で取得した戻り値の値が変わりました。
> どういう意味なんでしょう・・・?
$Jret = system("java Test");
の場合は、JavaVMの終了ステータスが $Jretに入る。
$Jret = `java Test`;
の場合は、「java Test」を実行したときの出力が$Jretに入る。
という違いでしょう。
なぜ後者の場合に65280となるのかはわかりません。
No.4
- 回答日時:
文字列を返すことは出来ませんが、System.exit(int)でJavaVMの終了ステータスを
指定できます。
class Test {
public static void main(String args[]) {
System.exit(1);
}
}
とすれば、戻り値(int)を取得出来るはずです。
ご回答有難う御座います。
System.exitを使用してみましたが、返される値は10進なのでしょうか?
System.exit(1)の場合は、戻り値:256
System.exit(2)の場合は、戻り値:512
どいう具合になってしまいます。
Javaでの戻り値の設定の仕方、Perlでの受け方・・・
何が駄目なのかまだ分かりません。
以上の事をこれから調査しようと思っています。
No.3
- 回答日時:
public static void main(String[] args)
がエントリですから、これが無ければ実行しようとしても
Exception in thread "main" java.lang.NoSuchMethodError: main
となって、何も実行されません。
また、戻り値は返せる場合も数値だけですから、
文字列を返すような場合は、標準出力を使うのが一般的でしょう。
例えば、#1の方の回答にあるように
$Jret = `java Test`;
とし、
class Test {
public static void main(String args[]) {
String ret = "XYZ";
System.out.print(ret);
}
}
です。
ご回答有難う御座います。
戻り値を元にPerl側で別処理を行うので
System.out.printで標準出力を使うだけでは、
解決しないのです。
しかし、文字列を返すのは難しいようですね・・・
No.2
- 回答日時:
No.1です。
Javaってmainに戻り値指定できましたっけ?
public static void main(String[] args)
だったと思うんですけど。
エラーメッセージでも
「そんなメソッド無いよ」
って言ってますよね。
「Stringを返すmainなんて知らない」ってことではないでしょうか。
> Javaの[public static String main]には戻り値が設定できないのでしょうか?
私も以上でで申しました通り、
出来るか?出来ないか分かりません。
出来なのであれば、戻り値となるものをファイルに出力しておいて、
Perlの方で読み込む等の対策を練る必要がありますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画像が表示でnull; this.src
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
アルファベットに付いて質問し...
-
Raspberry Pi
-
Perl 特定のフォルダ以外削除
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Perlソースコードをコンパイル...
-
プロシージャの戻り値を取得す...
-
Perlで環境変数を設定するには
-
system関数でCシェルコマンドを...
-
cgiを実行可能にするには
-
外部CGIの実行結果を変数内に取...
-
UNIX SUN Solarisで時間の演算
-
VB.NETからPerlを呼び出す
-
Cygwin上でperlスクリプトの実行
-
system関数を使用してJava実行...
-
これをビジュアルスタジオで実...
-
Perlスクリプトが実行できない...
-
-i -e "s|^.|ok|" ./text どこ...
-
perlで 引数1を別リストの複数...
-
Apacheのログからアクセス履歴...
-
Perl リスト内指定回数繰り返し
-
DBIのupdateのプレースフォルダ
-
Windows版Perlの標準入力&標準...
-
コードを一行ずつ実行したい。
-
例外処理のフローチャートの記...
おすすめ情報