03/11/03 17:36
>>106
スマソ.かなりバグがあった
#!/usr/local/bin/perl
$r=$ENV{'REQUEST_URI'};
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<html><head><title>テスト</title></head><body>";
if ($r =~ /http:\/\//i) {print "直接呼ぶな</body></html>\n";exit;}
$r =~ s|/||;
print qq(他のサイトにJunp ==>> <A HREF="$r">$r</A>);
print "</body></html>\n";
だ.http:// から呼び出さないと全く無意味.
>>105
| ←は? それか、何かの文字を連続で使うとか