ぜろちゃんねるスクリプト総合質問スレ Part2

689 ：名無しさん＠０ちゃんねる：2003/07/11 03:51 ID:???

>>688
IISやPWSはPATH_INFOがApacheなどと大きく異なる困ったちゃん。
以下のでどうかな？
これでtest.cgi以降が正しく取得できれば★の行をgetdata.plなどで
$ENV{'PATH_INFO'}を使っている部分に足せばいいわけだが・・・

test.cgi （IIS/PWS用)

#!/usr/local/bin/perl

# 任意のディレクトリに置いてtest.cgi以降に/区切りでなんか足してアクセスしてみる
#
# 例 http://www.hoge.com/hage/test.cgi/board/thread/res
#

#!/usr/local/bin/perl

print "Content-type: text/plain; charset=Shift_JIS\n\n";
if($ENV{'PATH_INFO'} ne ""){
$ENV{'PATH_INFO'} =~ s/^$ENV{'SCRIPT_NAME'}//; # ★
print "PATH_INFO = $ENV{'PATH_INFO'}";
}else{
print "PATH_INFO使えない鯖だよん"
}
exit;