26コメント6KB

☆これでキマリ！いちばんいいCGI串スクリプト！☆

■ このスレッドは過去ログ倉庫に格納されています

0001IKeJI

01/12/25 14:19ID:d2VdbBA7

一番使い安いのはどれでしょう？

0002名無しさん＠お腹いっぱい。

01/12/25 14:20ID:???

終了。

0003IKeJI

01/12/25 14:21ID:d2VdbBA7

はや！

0004名無しさん＠お腹いっぱい。

01/12/25 14:23ID:???

初級ネット板逝け。

http://pc.2ch.net/hack/

--------------------終了--------------------

0005IKeJI

01/12/25 14:28ID:d2VdbBA7

>>4
どっちかつーと、こっちの板向きの話題でないかい？
CGIだしさ。

0006名無しさん＠お腹いっぱい。

01/12/25 14:31ID:???

>>5

スレを立てるほどでもない。

0007名無しさん＠お腹いっぱい。

01/12/25 14:32ID:???

　　　　　　　　　 /~ヽ　　　　　　　　　／:ヽ
　　　　　　　　｛:::::::::＼　　　　　　　　／.:::::::::｝
　　　　　　　　　ヽ、::::::::＼,.....-.―-／.:::::::::::ノ
　　　　　　　　　　　ゝ,.-‐-､,.‐‐-､::::::::::::::::"く
　　　　　　　　　　／　　　 /⌒丶ヽ._::::::::::::::ヽ　　では削除されるまでの間
　　　　　　　　　/　　　,ｨ〃//ﾞヽ.　ヾ　ヽ::::::::::::｝　大耳モナーが
　　　　　　　　 /　　∠_　　　　　`'､　　　ゝ:::::::::j　ここを管理しておきます♪
　　　　　　　　｛　　/,.=､｀　　　,.ﾆ￣`ﾒヾ｝:::::::ﾒ
　　　　　　　　ノ）ｲ1仆..｝　　ｒi⌒ヾ　ｿりﾄ､::::/
　　　　　　　　　ﾘｿ,,`ｰ' .　　　､､::;ナ仆⌒!ソ
　　　　　（＼＿/八　　､＿　　￣ '' ,.!|f_ノﾘ　（＼＿／）
　　　　　（　´∀｀）ﾘヽ.　　　　　ィﾙﾘ从ﾒ　（´∀｀ ∩
　　　　　（.つ　　つ　　 ` ｰ┬　　　ﾄx　　　　　（つ　　丿
　　　　　　）　,）　） '^~ ￣く（__ ___／　,ゝ、　　（　ヽ,,ﾉ
　　　　　（,,＿,,_,,）　　　／ｿc< ｒ一'~´　　ヽ、（,,ﾞ_＿,,）
　　　　　　/ 　ﾚﾍ､___／／.:::::.ヽ＼　　　　　入/ 　 |
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

0008IKeJI

01/12/25 14:34ID:d2VdbBA7

>>2、4、6、7
じゃあ、すまんです、。
さいなら

0009名無しさん＠お腹いっぱい。

01/12/25 15:06ID:MHpycg8i

#!/usr/bin/perl
print "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;}

■ このスレッドは過去ログ倉庫に格納されています