今回の実験に使った比較対照ファイルのPATH_INFOを使った実行用CGI(perl)のソースは以下のとおりとなります。
#!/usr/local/bin/perl
#**path_info実験上等
#**ロボ対策
use strict;
if($ENV{'PATH_INFO'} !~ /\/$/){exit;}
#**
@spl = split (/\//,$ENV{'PATH_INFO'});
#----読み込み
if ($spl[1] eq "html"){
open(IN,"./pathinfojikken.cgi");
@filetmp = <IN>;
close (IN);
print "Content-type:text/html; charset=shift_jis\n\n";
foreach (@filetmp){
print $_;
}
}
exit;