ベストアンサー

特定のURLへのリクエストをし、そのレスポンスを変数に格納する方法

2006/10/06 20:10

こんにちは。ちょっと文字で表現するのが難しいのですが、行いたい事は --------- 数字は --------- というＨＴＭＬが表示されるだけのPerlプログラムA.plがあるとします。また、「100」という数字をレスポンスで返すだけのPerlプログラムB.plがあります。で、行いたいのは A.pl内で、B.plを呼び出して、１００という数値を受け取り A.pl内で出力したいのです。 ---------------------- A.plイメージ $num=URLリクエスト関数(http://aaa.com/B.pl) <html> 数字は print << "HTML"; $num％<br> HTML </html> ---------------------- A.pl結果イメージ数字は100 ---------------------- という感じデス。（URLリクエスト関数()という都合の良いようなものがあれば、というあくまでイメージです）このような形で、ある特定のプログラムのレスポンスを取得してその結果を、その呼び出しも元のファイルで使用できるようにするにはどのようにすればよろしいでしょうか。ご存知の方、是非ご教授ください。

majikaru
お礼率37% (182/490)

Perl
回答数3
ありがとう数0

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

umasikajiro
ベストアンサー率67% (545/803)

2006/10/08 15:48 回答No.2

私が意味を取り違えているかもしれませんが、、、そのB.plが通常のCGIとして print "Content-type:text/html\n\n"; print "100"; と言うようにちゃんとヘッダも出力するものなら #1さんのお答えどおりで出来ると思います。でも、もしもB.plがヘッダを出力せず、 100 とだけ出力するものなら B.plが通常のCGIでは500Server Errorになってしまいますので nph-cgiにするなどhttpdでヘッダの解析をしないようにする必要が有ります　普通のApacheなどの設定ではFile名の頭にnph-をつけて nph-B.cgi などのFile名にすればOKです。次にA.pl側ですが、nph-B.cgi側へリクエストを送ってもヘッダも何も無しで、数字のみしか帰ってこないので LWPだと解析できないのではないかと思います面倒ですが自前でSocket通信しないといけないかと思います。以下、サンプル(Perl離れて久しいのでダサいソースでゴメソ) #! /usr/local/bin/perl $Host = 'www.umasika.com'; $Page = "/~tarou/nph-B.cgi"; $Addr = (gethostbyname($Host))[4]; $Name = pack("S n a4 x8", 2, 80, $Addr); socket(S, 2, 1, 0); connect(S, $Name); binmode(S); select(S); $| = 1; select(stdout); print S "HEAD $Page HTTP/1.0\r\n\r\n"; $test=<S>; # これで$testに100が入る print "Content-type:text/html; charset=Shift_JIS\n\n"; print "<html><pre>\n"; print "http://$Host$Page から取得した値は = " . $test; __END__ うちで試した限りではこれで出来ましたが

その他の回答 (2)

umasikajiro
ベストアンサー率67% (545/803)

2006/10/09 08:32 回答No.3

もしかしてA.plとB.Plは同じサーバー内のスクリプトでしょうか？だとしたら全然違う方法で出来ます。というかサーバー間通信など行わなくても `` などで呼び出せば出来ます #! /usr/local/bin/perl $num=`/home/hoge/www/test1/B.pl`; print << "HTML"; Content-type:text/html; charset=Shift_JIS <html> 数字は $num%<br> </html> HTML __END__