perlで外部のperlファイルの実行するには？

Question

お世話になっています。
perlの初歩的な件で恐縮です。。
perlで別ファイルで作成したperlを実行するにはどうしたらいいのでしょうか？

---

例1；
#!/usr/bin/perl
system("/test1.pl 引数1");

例1では引数を外部perlに渡して実行できることを確認しました。

しかし「戻り値」を得るにはどうしたらいいのでしょうか？

調べるとpacage,useとrequire とか出てくるようですが、
具体的にどれを使用したらいいのか困っています。

サンプル例：

「引数を出して戻り値を得る外部ファイルperl」

を教えて頂けますでしょうか。
よろしくお願いします。

Answer 1

systemから呼べるならbashから呼んで戻り値を得るのはどうでしょうか？

#!/bin/sh
/test1.pl 引数1
echo $?


または
#!/bin/sh
/usr/bin/perl /test1.pl 引数1
echo $?

外部プロセスの終了ステータスは$?という特殊変数の上位8bitの中に入っいるそうです。

#!/usr/bin/perl
my $msg=system("/test1.pl 引数1");
if ($? == -1) {
  die "failed to execution: $!\n";
}else{
    $rc = $? >> 8;
    print $rc ."\n";
}
print $msg ."\n";

Comments

[shigoto]

お世話になっています。今回はperlで戻り値を変数に入力したいのです。

[A.Ichi]

@list=`/test1.pl 引数1`;
print @list;
でとれます

[shigoto]

そうなんですか。。
pacage,useとrequireなどを使用したサンプルも見たいです。。

[shigoto]

ありがとうございます。
終了ステータスは別のテーマで探っていきたいです。。難しい。
私にはまずは単純な外部ファイルから戻り値を得るやり方を知りたかったのです。

[KojiDoi]

上記のような質問文を投げかけられたら、普通は「戻り値」＝終了ステータスのことだろうと解釈されると思います。でもそうではないようですね。では、質問者氏は何を「戻り値」だと考えているのかです。

次のようなスクリプト(test.pl)があったとして、コマンドラインからperl test.plを実行したとします。
質問者さんの期待する「戻り値」は何でしょうか？

#!/usr/bin/perl
print "ABC\n";
$a=123;

[shigoto]

おそくなりすみません。
んー戻り値、print "ABC"と$aの両方得たいです。

[A.Ichi]

もし
$a=123;
exit $a;
としていただければ上記perlで取得できます。