SSIでの"?"の使い方

質問

ある検索エンジンCGIのログを流用してトップページにSSIで表示しようとしています。
検索エンジンはいくつかのジャンルに分かれています。トップページに表示する分もジャンルで分けたいと思います。また、保存されているデータの最新10件を表示したいと考えています。

そのため以下のようにやってみました。
ページには
□ジャンル1
<!--#exec cmd="./list.cgi?pt=0" -->
□ジャンル2
<!--#exec cmd="./list.cgi?pt=1" -->
～～
CGIは
----------------------
#!/usr/bin/perl

$w_new = 10;
require './jcode.pl';

print "□ジャンル1<BR>\n";　#この行はテスト用ダミーです。

open (FILE,"./cgi-bin/navi/A.bak");
$i=0;
while (<FILE>) {
$i++;
local($no,$pt,$sub,$hp,$name,$email,$pw,$msg,$dt,$ts,$rec,$axs) = split(/<>/);
if ($pt eq $in{'pt'}){
print "<A href=\"$hp\">□$sub</A><BR>\n";
if ($i >= $w_new) { last; }
}
}
close(FILE);
exit;

------------------------
$ptがジャンル、$subが表示名、$hpがアドレスです。
こうすると何も表示しません。
また、
<!--#exec cmd="./list.cgi" -->
というかんじで"?"を抜くとダミー用文「"□ジャンル1」が表示されます。(SSIが表示できないわけではないと言う確認)
SSIのときは"?"は使用できないのでしょうか?
また、スクリプトはこれであっているのでしょうか?(合ってないから表示しないわけで…(T.T))

回答No.2

leaz024 · ベストアンサー

> 具体的にどのようにしたらいいのでしょうか?

例えば、パラメータの指定は次のようにします。
　<!--#exec cmd="./list.cgi pt=0 a=1 b=2" -->

もし、list.cgi のリクエスト解析部分が、
　　if ($ENV{REQUEST_METHOD} =~ /GET/i) {
　　　　$buf = $ENV{QUERY_STRING};
　　} else {
　　　　read STDIN, $buf, $ENV{CONTENT_LENGTH};
　　}
のような感じになっているなら、それを
　　if (@ARGV) {
　　　　$buf = join '&', @ARGV;
　　} elsif ($ENV{REQUEST_METHOD} =~ /GET/i) {
　　　　$buf = $ENV{QUERY_STRING};
　　} else {
　　　　read STDIN, $buf, $ENV{CONTENT_LENGTH};
　　}
として、@ARGV から受け取るようにします。
（CGIとして実行することがなければ、elsif 以降は不要です。）

また、CGI.pm を使っているなら、スクリプトは変更しなくても大丈夫のはずです。

回答No.1

leaz024

SSIの <!--#exec cmd="script" --> というのは script をCGIとして呼び出すものではありません。
これは script をコマンドとして実行するものなので、パラメータをスペースで区切って渡し、スクリプト側では @ARGV を参照します。
詳しくは参考URLをどうぞ。

参考URL：

http://tohoho.wakusei.ne.jp/wwwssi.htm#Exec

お礼

返答ありがとうございます。
ページを見てみましたが、ちょっと意味がよくわからなかったです。
具体的にどのようにしたらいいのでしょうか?