cgiから別のcgiをコールする方法を教えてください。

質問

いつもお世話になります。
プログラムとプログラムを結合しております。最初はサブルーチン化しようと思いましたが、元のプログラムの解析ができず。プログラムのコールしたいと考えております。perlから別のperlで作成したcgiをコールする記述方法を教えてください。初歩的な質問で申し訳ありません。

回答No.1

BLUEPIXY · ベストアンサー

その呼び出すcgi が実行できてその標準出力を取り込むということだったら
$result=`other.cgi`;
（`は、バッククォート）
でできると思う。

回答No.3

moon_night

include 'xxx.cgi';
require 'xxx.cgi';
のいずれかを使用すればいいような。

お礼

moon_night様ご回答ありがとうございました。テストしてみたところ上手くいきました。本当本当初歩的で申し訳ありませんでした。

回答No.2

rafysta

original.cgi (呼び出したいcgi)
use strict;
・・・省略・・・
our $result = 'hoge';
our @result = qw(1 2 3 4);
our %result = (hoge => ans);

コールする側.cgi
use strict;
use vars qw($result @result %result);
do 'original.pl';
print "$result\n";
print "@result\n";
print "$result{hoge}\n";

僕は、設定ファイルなどを作るときに、時々こんな風に作ります。

お礼

rafysta様ご回答ありがとうございました。初めて見る記述方法で戸惑いましたがテストしてみたところ雰囲気が分かりました。今後の糧にさせていただきます。