☆これでキマリ!いちばんいいCGI串スクリプト!☆
■ このスレッドは過去ログ倉庫に格納されています
0001IKeJI
01/12/25 14:19ID:d2VdbBA70002名無しさん@お腹いっぱい。
01/12/25 14:20ID:???0003IKeJI
01/12/25 14:21ID:d2VdbBA70004名無しさん@お腹いっぱい。
01/12/25 14:23ID:???http://pc.2ch.net/hack/
--------------------終了--------------------
0005IKeJI
01/12/25 14:28ID:d2VdbBA7どっちかつーと、こっちの板向きの話題でないかい?
CGIだしさ。
0006名無しさん@お腹いっぱい。
01/12/25 14:31ID:???スレを立てるほどでもない。
0007名無しさん@お腹いっぱい。
01/12/25 14:32ID:???/~ヽ /:ヽ
{:::::::::\ /.:::::::::}
ヽ、::::::::\,.....-.―-/.:::::::::::ノ
ゝ,.-‐-、,.‐‐-、::::::::::::::::"く
/ /⌒丶 ヽ._::::::::::::::ヽ では削除されるまでの間
/ ,ィ〃//゙ヽ. ヾ ヽ::::::::::::} 大耳モナーが
/ ∠_ `'、 ゝ:::::::::j ここを管理しておきます♪
{ /,.=、` ,.ニ ̄`メ ヾ }:::::::メ
ノ)イ1仆..} ri⌒ヾ ソりト、::::/
リソ,,`ー' . 、、::;ナ 仆⌒!ソ
(\_/八 、_  ̄ '' ,.!|f_ノリ (\_/)
( ´∀`)リヽ. ィルリ从メ (´∀` ∩
(.つ つ ` ー┬ トx (つ 丿
) ,) ) '^~  ̄く(__ ___/ ,ゝ 、 ( ヽ,,ノ
(,,_,,_,,) /ソc< r一'~´ ヽ、 (,,゙__,,)
/ レヘ、___//.:::::.ヽ\ 入/ |
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0008IKeJI
01/12/25 14:34ID:d2VdbBA7じゃあ、すまんです、。
さいなら
0009名無しさん@お腹いっぱい。
01/12/25 15:06ID:MHpycg8iprint "Content-type: text/html\n\n";
my $target=$ENV{'PATH_INFO'} . "?" . $ENV{'QUERY_STRING'};
$target =~ s/^\///;
my $base= "http://$ENV{'SERVER_ADDR'}$ENV{'SCRIPT_NAME'}/";
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');
my $req = HTTP::Request->new(GET => "$target");
$res = $ua->request($req);
if ($res->is_success) {my $print = $res->content;
$print =~ s/(http\:\/\/)/$base$1/gi;
print $print;} else {print $res->status_line;}
0010せぶん
01/12/25 15:09ID:???0012名無しさん@お腹いっぱい。
01/12/25 17:52ID:???--------------END-----------------
0013名無しさん@お腹いっぱい。
01/12/25 18:08ID:I+SZsrHB■ このスレッドは過去ログ倉庫に格納されています