ime.nuってどうなっているの？

239 ：nobodyさん：2010/04/09(金) 21:51:44 ID:???.net

とりま、こんな過疎スレageｽﾏｿ

#!/usr/bin/perl

# URLの後ろパスがついているかチェック
if ($ENV{'QUERY_STRING'} eq ""){&error;}

# パスにhttp:/が含まれている場合削除
$ENV{'QUERY_STRING'} =~ s/http:\/\///;

# URLの作成
$PATH = "http:/$ENV{'QUERY_STRING'}";