*99の指定したCGIを*00が作るスレ
148nobodyさん
02/12/13 07:02ID:??? 初心者買うのためらうわ
149nobodyさん
02/12/13 07:02ID:??? 俺もためらったもん
150nobodyさん
02/12/13 07:02ID:??? 「飲んでみたい」より
151nobodyさん
02/12/13 07:02ID:??? 「飲めなかったらどうしよう」のほうが強かったね
152nobodyさん
02/12/13 07:03ID:??? で、捨て銭だと思いこんで買ったんですよ、深夜
153nobodyさん
02/12/13 07:03ID:???うまかった
154nobodyさん
02/12/13 07:03ID:??? あれ、コーラよりうまいじゃん。て。
155nobodyさん
02/12/13 07:03ID:??? 冷たさと、あっさりテイストがマッチ
156nobodyさん
02/12/13 07:04ID:??? どこに薬品臭が？ってね
157nobodyさん
02/12/13 07:04ID:??? 「似てる」って一時言われて
158nobodyさん
02/12/13 07:04ID:??? 一時流行った
159nobodyさん
02/12/13 07:04ID:??? 「SMAP」（飲料）
160nobodyさん
02/12/13 07:05ID:??? あれは
161nobodyさん
02/12/13 07:05ID:??? 毒
162nobodyさん
02/12/13 07:05ID:??? やばいと思った
163nobodyさん
02/12/13 07:06ID:??? 初めて家族で行ったキャンプ場の電灯が１つだけついてる便所
164nobodyさん
02/12/13 07:06ID:??? なまじ明かりがついてるもんだから
165nobodyさん
02/12/13 07:06ID:??? 壁がね
166nobodyさん
02/12/13 07:06ID:??? 蛾蛾蛾SP
167nobodyさん
02/12/13 07:07ID:??? あれも、やばいと思った
168nobodyさん
02/12/13 07:07ID:??? そんぐらい。SMAP。
169nobodyさん
02/12/13 07:07ID:??? よく発売したなあと
170nobodyさん
02/12/13 07:07ID:??? 朝のワイドショーにSMAPのVTRが流れて
171nobodyさん
02/12/13 07:08ID:??? 他のメンバー「うまい」とか「新しい味」とか言ってたのに
172nobodyさん
02/12/13 07:08ID:??? 木村「
173nobodyさん
02/12/13 07:08ID:??? 飲んだ後に…
174nobodyさん
02/12/13 07:08ID:??? ･････････････････････････････････
175nobodyさん
02/12/13 07:08ID:??? ん？（微笑」
176nobodyさん
02/12/13 07:09ID:??? だもん
177nobodyさん
02/12/13 07:09ID:??? 他のメンバー「だまるくらいうまい、と」とかフォローしてるし
178nobodyさん
02/12/13 07:09ID:??? 正直者をよってたかって隠蔽か
179nobodyさん
02/12/13 07:09ID:??? 黒い、黒いよ
180nobodyさん
02/12/13 07:10ID:??? 蛾蛾蛾SP
181nobodyさん
02/12/13 07:10ID:??? まぁそんなこんなで
182nobodyさん
02/12/13 07:10ID:??? ファンタ愛飲者には怒られそうですが
183nobodyさん
02/12/13 07:10ID:??? 一応やっとく・・・？
184nobodyさん
02/12/13 07:10ID:??? ファンタね。偽者くさい。
185nobodyさん
02/12/13 07:11ID:??? 10%オレンジジュースみたい。まずいでしょ、100%に比べると
186nobodyさん
02/12/13 07:11ID:??? 桃味って2000年限定だと思ってたのに
187nobodyさん
02/12/13 07:12ID:??? ホワイトピーチが普通に発売されてる現実
188nobodyさん
02/12/13 07:12ID:??? クレームはどこにつけりゃいいの！？
189nobodyさん
02/12/13 07:12ID:??? コカコーラ社です。
190nobodyさん
02/12/13 07:13ID:??? やっぱだめだ、コーラ。ドクペ再来の季節。
191nobodyさん
02/12/13 07:14ID:??? さて、別に俺は荒らしでもなんでもなく、>>100が創ってくれるのを待ってるんだが、同時進行でスレ活性。うっほい。あ、このスレだけ「作る」を「創る」にしない？
192nobodyさん
02/12/13 07:16ID:??? ドクターペッパーの由来は、ペッパー医師の娘に惚れていたが父親に認められなくて結婚を断念した青年が創った飲料で
それにドクターペッパーって名前つけたら医師も許してくれたんだって
それにドクターペッパーって名前つけたら医師も許してくれたんだって
193nobodyさん
02/12/13 07:16ID:??? なんのこっちゃだね。このスレ住人は怒るかな？青年。違う、俺のことを
194nobodyさん
02/12/13 07:17ID:??? 今宵もcgiを創りながら
195nobodyさん
02/12/13 07:17ID:??? 缶を傾ける・・・ fin
197nobodyさん
02/12/13 08:46ID:IN4gWS6o エクスプローラに激似の、アップローダ兼ファイル管理CGI
199199
02/12/13 09:09ID:??? 199
200200
02/12/13 09:10ID:??? 200
202nobodyさん
02/12/13 09:16ID:???203nobodyさん
02/12/13 09:52ID:??? 擦れたいから想像するに後方参照して(それに100足して)いるわけじゃないし
199が指定したものを200が作る必要ないのでは？とひねくれてみる
199が指定したものを200が作る必要ないのでは？とひねくれてみる
204nobodyさん
02/12/13 13:18ID:PrrV69nn 199なCGIってどんなだろう？
206100
02/12/13 14:15ID:??? 呼んだか?
207nobodyさん
02/12/13 14:26ID:1ejr4/26 つかえねー>>100だな
209nobodyさん
02/12/13 16:07ID:??? #!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "199";
print "Content-type: text/plain\n\n";
print "199";
212nobodyさん
02/12/13 22:51ID:???213nobodyさん
02/12/14 08:08ID:??? > 「エクスプローラに激似の、アップローダ兼ファイル管理CGI 」
CGI版 WebDAV(or FTP) Client ?
CGI版 WebDAV(or FTP) Client ?
215nobodyさん
02/12/14 22:29ID:/7Ilx+P7 >>200
賃貸マンション住まいでしょ?
賃貸マンション住まいでしょ?
216nobodyさん
02/12/15 04:40ID:??? 次の\d99まで暇だから、
\d00が指定されたCGIの製作過程を残す、というのはどう？
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう
\d00が指定されたCGIの製作過程を残す、というのはどう？
言語選択 - PHP #
板一覧の所得 ...
スレッド一覧の所得 ...
乱数の生成 ... int rand(min, max)
と、もうちょっと生産的な方向に流れを変えて見よう
217nobodyさん
02/12/15 04:43ID:FL3a4bzG まだ書いてる途中だったのに送信してしまった・・・
まぁ、いぃや。
まぁ、いぃや。
218nobodyさん
02/12/15 04:46ID:FL3a4bzG 216-217 の書きこみの間でbbs.cgi変わった？
書き込み前に確認画面出るようになったよ。
書き込み前に確認画面出るようになったよ。
219nobodyさん
02/12/15 05:03ID:???221nobodyさん
02/12/15 15:51ID:??? 次はどんなご注文で？
222nobodyさん
02/12/15 16:32ID:??? 激萌えぁゃゃcgiをきぼんぬ
223nobodyさん
02/12/16 12:58ID:kYAlrIEv225nobodyさん
02/12/20 14:24ID:bSnvNs3j http://live.2ch.net/test/read.cgi/festival/1040349157/
TIME投稿ツールｷﾎﾞﾝぬ
TIME投稿ツールｷﾎﾞﾝぬ
228nobodyさん
02/12/20 23:38ID:??? おまいら趣旨を理解しやがってください。
229nobodyさん
02/12/24 23:42ID:2kS8TiT1 メリクリ
230nobodyさん
02/12/25 17:15ID:U7g6MD4O >>229
ｸﾘﾒﾘ
ｸﾘﾒﾘ
231nobodyさん
02/12/25 21:45ID:??? ｳﾞｧﾘｭｸﾘ
232nobodyさん
02/12/27 09:52ID:PDegbcoZ クリスマス以降寂れたのか？
233nobodyさん
02/12/31 10:34ID:2j4SuGi0 100ではないが99のはこんなんで良いのか？
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが（藁
#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "$method /$path HTTP/1.0\r\n";
print SOCKET "User-Agent: 2ch roulette/0.0 \r\n";
print SOCKET "\r\n";
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが（藁
#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "$method /$path HTTP/1.0\r\n";
print SOCKET "User-Agent: 2ch roulette/0.0 \r\n";
print SOCKET "\r\n";
234nobodyさん
02/12/31 10:34ID:2j4SuGi0 続き
while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
close(LIST);
}
open(LIST, $boardList);
@board = <LIST>;
close(LIST);
srand(time^$$);
$num = rand($#board);
print "Location:$board[$num]\n\n";
while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
close(LIST);
}
open(LIST, $boardList);
@board = <LIST>;
close(LIST);
srand(time^$$);
$num = rand($#board);
print "Location:$board[$num]\n\n";
235_
02/12/31 10:48ID:gfphPIoL236nobodyさん
02/12/31 13:16ID:qLQW6luA おゆ〜
237nobodyさん
03/01/04 20:27ID:tm/4/3y9 >>233
もうちょっと読みやすくつくってｸﾚ
もうちょっと読みやすくつくってｸﾚ
239nobodyさん
03/01/04 21:21ID:uoWySJDJ 読みにくい。
注釈文をいれようょ
注釈文をいれようょ
241nobodyさん
03/01/06 16:15ID:vXxmrd3Z あげ
242nobodyさん
03/01/10 16:05ID:??? Perl らしくない。
もうちょっと呪文を混ぜようょ
もうちょっと呪文を混ぜようょ
243nobodyさん
03/01/11 12:22ID:9FJE/Arw Perl らしくない。
もうちょっと電波を混ぜようょ
もうちょっと電波を混ぜようょ
246nobodyさん
03/01/13 01:58ID:zFhrRpi4 if($a == 1){
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
249nobodyさん
03/01/13 13:20ID:??? <?
//programmed by moguno This script is copyleft.
//2ちゃんねるメニューからURLリストを取得
function getURLList($local)
{
//ファイル名を決定
if($local)
$filename = "./2chmenu.html";
else
$filename = "http://www6.ocn.ne.jp/~mirv/2chmenu.html";
//ファイルを読み込む
$dat = file($filename);
$res = array();
foreach($dat as $d)
{
//リンク先一覧を取得
preg_match("/<A HREF=([^\\>]+)>/",$d,$matches);
if($matches[1] == NULL)
continue;
$match = $matches[1];
//2ch以外のドメインと2chトップページへのリンクを除外
if(preg_match("/2ch\\.net\\/.+$/",$match) == 0)
//programmed by moguno This script is copyleft.
//2ちゃんねるメニューからURLリストを取得
function getURLList($local)
{
//ファイル名を決定
if($local)
$filename = "./2chmenu.html";
else
$filename = "http://www6.ocn.ne.jp/~mirv/2chmenu.html";
//ファイルを読み込む
$dat = file($filename);
$res = array();
foreach($dat as $d)
{
//リンク先一覧を取得
preg_match("/<A HREF=([^\\>]+)>/",$d,$matches);
if($matches[1] == NULL)
continue;
$match = $matches[1];
//2ch以外のドメインと2chトップページへのリンクを除外
if(preg_match("/2ch\\.net\\/.+$/",$match) == 0)
250nobodyさん
03/01/13 13:21ID:??? continue;
//2ちゃんねる総合案内を除外
if(preg_match("/\\/guide/",$match) == 1)
continue;
//配列に追加
array_push($res,$matches[1]);
}
return $res;
}
//***初期化***
srand(time());
//外部へのHTTP通信を許可しているサーバならfalse。
//許可していない場合はhttp://www6.ocn.ne.jp/~mirv/2chmenu.htmlをダウンロードし
//こいつと同じディレクトリに2chmenu.htmlとして保存した後trueに書き換え。
$list = getURLlist(false);
?>
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list))]);?>">
</head>
</html>
//2ちゃんねる総合案内を除外
if(preg_match("/\\/guide/",$match) == 1)
continue;
//配列に追加
array_push($res,$matches[1]);
}
return $res;
}
//***初期化***
srand(time());
//外部へのHTTP通信を許可しているサーバならfalse。
//許可していない場合はhttp://www6.ocn.ne.jp/~mirv/2chmenu.htmlをダウンロードし
//こいつと同じディレクトリに2chmenu.htmlとして保存した後trueに書き換え。
$list = getURLlist(false);
?>
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list))]);?>">
</head>
</html>
251nobodyさん
03/01/13 13:28ID:??? <META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list) - 1)]);?>">
に訂正。
に訂正。
252nobodyさん
03/01/13 14:03ID:??? このまま300いくに1000php
253nobodyさん
03/01/14 18:08ID:7L6kWj+N 無視して次のおだいまでAGE
256山崎渉
03/01/15 13:31ID:??? （＾＾）
257nobodyさん
03/01/17 01:37ID:BIc4KCgY >>254
山崎渉をあげるから逝って来い
山崎渉をあげるから逝って来い
261nobodyさん
03/01/17 22:20ID:??? 100本人じゃないとだめっしょ
そういうスレ
そういうスレ
262nobodyさん
03/01/19 23:49ID:NJuI9Ez7263nobodyさん
03/01/20 02:51ID:??? 263
264nobodyさん
03/02/01 01:35ID:??? age
266山崎渉
03/03/13 17:22ID:??? （＾＾）
267nobodyさん
03/03/30 23:03ID:??? うんこ
268nobodyさん
03/03/30 23:03ID:2BSCR98U269nobodyさん
03/03/31 02:15ID:??? *99を利用してなんか無理矢理作ってみるってのはどうだ？
270nobodyさん
03/03/31 03:05ID:??? なんか久しぶりに動いたな、このスレ。
271山崎渉
03/04/17 12:11ID:??? （＾＾）
272山崎渉
03/04/20 06:22ID:??? ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
（ ＾＾ ）＜ ぬるぽ（＾＾）
273age
03/05/05 13:53ID:??? age
274nobodyさん
03/05/05 14:06ID:zlc2Jh4q275age
03/05/11 15:09ID:??? age
276bloom
03/05/11 15:10ID:D5AlwyCG277435
03/05/11 16:16ID:??? 無能な１００がいるスレはここでつか？
279動画直リン
03/05/21 13:08ID:JZ9K0e/X280かおりん祭り
03/05/21 13:08ID:??? 〜oノハヽo〜 http://togoshi.ginza.st/kaorin/
( ＾▽＾) ＜ こんなのがございまーす♪
http://togoshi.ginza.st/kaorin/kaorin05.html
http://www.togoshi.ginza.st/kaorin/kaorin02.html
http://togoshi.ginza.st/kaorin/kaorin06.html
http://www.togoshi.ginza.st/kaorin/kaorin08.html
http://togoshi.ginza.st/kaorin/kaorin01.html
http://www.togoshi.ginza.st/kaorin/kaorin10.html
http://togoshi.ginza.st/kaorin/kaorin04.html
http://www.togoshi.ginza.st/kaorin/kaorin03.html
http://togoshi.ginza.st/kaorin/kaorin09.html
http://www.togoshi.ginza.st/kaorin/kaorin07.html
( ＾▽＾) ＜ こんなのがございまーす♪
http://togoshi.ginza.st/kaorin/kaorin05.html
http://www.togoshi.ginza.st/kaorin/kaorin02.html
http://togoshi.ginza.st/kaorin/kaorin06.html
http://www.togoshi.ginza.st/kaorin/kaorin08.html
http://togoshi.ginza.st/kaorin/kaorin01.html
http://www.togoshi.ginza.st/kaorin/kaorin10.html
http://togoshi.ginza.st/kaorin/kaorin04.html
http://www.togoshi.ginza.st/kaorin/kaorin03.html
http://togoshi.ginza.st/kaorin/kaorin09.html
http://www.togoshi.ginza.st/kaorin/kaorin07.html
281nobodyさん
03/05/21 14:36ID:??? 281
282nobodyさん
03/05/21 14:36ID:??? 282
283nobodyさん
03/05/21 14:37ID:??? 283
284nobodyさん
03/05/21 14:37ID:??? 284
285nobodyさん
03/05/21 14:37ID:??? 285
286nobodyさん
03/05/21 14:37ID:??? 286
287nobodyさん
03/05/21 14:37ID:??? 287
288nobodyさん
03/05/21 14:38ID:??? 288
289nobodyさん
03/05/21 14:38ID:??? 289
290nobodyさん
03/05/21 16:58ID:??? 290
291nobodyさん
03/05/21 16:58ID:??? 291
292nobodyさん
03/05/21 16:58ID:??? 292
293nobodyさん
03/05/21 16:59ID:??? 293
294nobodyさん
03/05/21 16:59ID:??? 294
295nobodyさん
03/05/21 16:59ID:??? 295
296nobodyさん
03/05/21 16:59ID:??? 296
297nobodyさん
03/05/21 16:59ID:??? 297
298nobodyさん
03/05/21 17:00ID:??? 298
299nobodyさん
03/05/21 18:33ID:??? SARSの死者の自動カウントCGI
300３００か３０１
03/05/21 20:15ID:grDsgXvz OK
で、cgiってなんだ？
で、cgiってなんだ？
301山崎渉
03/05/22 01:57ID:??? ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
302山崎渉
03/05/28 17:21ID:??? ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
303神ぽ。
03/05/30 15:18ID:??? どうよ
304_
03/05/30 15:26ID:???305nobodyさん
03/05/30 18:15ID:GJUSi001 (・∀・)ｲｲ懸賞サイト、お小遣いサイトをピックアップして紹介しています
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます！！
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html
月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます！！
無料登録するだけで商品券が貰えるサイトなども載せてあります
http://f15.aaacafe.ne.jp/~suikas/present.html
307perlお勉強中
03/07/12 15:28ID:FW3/pTdg >>99ネタ#1
#/usr/local/bin/perl
use Socket;
use FileHandle;
$list_url = 'http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html';
&get_list;
srand(time|$$);
$url = $list[rand(@list)];
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $url\n\n";
exit;
#/usr/local/bin/perl
use Socket;
use FileHandle;
$list_url = 'http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html';
&get_list;
srand(time|$$);
$url = $list[rand(@list)];
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $url\n\n";
exit;
308perlお勉強中
03/07/12 15:29ID:FW3/pTdg >>99ネタ#2
sub get_list {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
while (<SOCKET>) {
push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
}
}
sub get_list {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
while (<SOCKET>) {
push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
}
}
309nobodyさん
03/07/12 15:55ID:???310perlお勉強中
03/07/12 16:37ID:??? >>299のネタ
#/usr/local/bin/perl
use Socket;
use FileHandle;
# 最新のURLを探索
$list_url = 'http://www.who.int/csr/sars/country/en/';
$key = 'Full text';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
$list_url =~ s/entity\///;
$key = 'Total';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
# 行数決め打ちで死亡者数を切り出し
for($i=0;$i<24;$i++) {$number=<SOCKET>;}
$number =~ m/\d+/; $number = $&;
#結果表示
print "Content-type: text/html\n\n";
print "<html lang=\"jp\"><body>";
print "SARSによる死者数は$number人です\n<br>";
print "ソ\ース：$list_url\n</body></html>\n";
close(SOCKET);
exit;
#/usr/local/bin/perl
use Socket;
use FileHandle;
# 最新のURLを探索
$list_url = 'http://www.who.int/csr/sars/country/en/';
$key = 'Full text';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
$list_url =~ s/entity\///;
$key = 'Total';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
# 行数決め打ちで死亡者数を切り出し
for($i=0;$i<24;$i++) {$number=<SOCKET>;}
$number =~ m/\d+/; $number = $&;
#結果表示
print "Content-type: text/html\n\n";
print "<html lang=\"jp\"><body>";
print "SARSによる死者数は$number人です\n<br>";
print "ソ\ース：$list_url\n</body></html>\n";
close(SOCKET);
exit;
311perlお勉強中
03/07/12 16:38ID:??? >>299のネタ#2
# socket接続
sub http_connect {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
}
# socket接続
sub http_connect {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
}
312山崎 渉
03/07/15 11:07ID:???__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
313山崎 渉
03/08/02 02:42ID:??? ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
（ ＾＾ ）＜ ぬるぽ（＾＾）
314ぼるじょあ ◆ySd1dMH5Gk
03/08/02 05:29ID:??? ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
315nobodyさん
03/08/02 17:47ID:??? 次の00には何を作ってもらうかを考えよ〜
317山崎 渉
03/08/15 22:45ID:??? (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
319!100
04/03/22 04:48ID:??? <title>２ちゃんねるルーレット</title>
<?php
$url = 'http://127.0.0.1/bbsmenu.html';
$sec = 5;
if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) {
srand();
print preg_replace(
"/^<A HREF=(.+?)>(.+?)<\/A>.*/",
"$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">",
$lines[array_rand($lines)]
);
}
?>
>>318 作ってやったから金払え
<?php
$url = 'http://127.0.0.1/bbsmenu.html';
$sec = 5;
if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) {
srand();
print preg_replace(
"/^<A HREF=(.+?)>(.+?)<\/A>.*/",
"$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">",
$lines[array_rand($lines)]
);
}
?>
>>318 作ってやったから金払え
320nobodyさん
04/06/18 10:15ID:??? while(1) {
print("ぬるぽ\n");
}
print("ぬるぽ\n");
}
321nobodyさん
04/12/18 17:51:09ID:neHl2NC1 age
322nobodyさん
2008/11/07(金) 14:31:55ID:YMX4hGRf ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
323nobodyさん
2008/12/23(火) 14:29:41ID:IREBlBH+ age
325nobodyさん
2013/03/27(水) 19:39:59.35ID:IuHY8fTv _
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
326nobodyさん
2017/12/30(土) 13:00:29.15ID:YhlYw6jg 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO
327nobodyさん
2023/10/15(日) 04:32:20.79ID:??? もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて…
レスを投稿する
ニュース
- 女優・松本まりか「壊されたくない物があるなら、罰で強制でなく…大切に思ってもらえるように行動すべき」作家の国旗に関する投稿に私見 [少考さん★]
- 高市首相… 経歴詐称疑惑で米下院関係者が決定的証言「インターンだった」SNSで猛拡散 ★4 [少考さん★]
- 【W杯】悪夢１次Ｌ敗退の韓国 ホン・ミョンボ監督への批判集中 「出禁」にするレストラン、コンビニも 店主は「怒りが湧いた」 [王子★]
- 【五輪】IOC「私たちは再び日本で冬季五輪を行いたいと考えている」 [ニーニーφ★]
- 【日本代表】ブラジル撃破へ…板倉滉「全員が倒す気でいる」 長友佑都「過去イチくらいチームが団結。 勝ちます!見ていてください」 [王子★]
- 【W杯】韓国敗退で、アジア枠減少を危惧する声 決勝Ｔ進出は日本とオーストラリアのみ「これは削られても仕方ない」★3 [ネギうどん★]
- 【高市悲報】日本政府、官民ファンドによるゲームアニメの経済波及効果を300兆円と閣議決定 [709039863]
- 高市早苗、動く「南鳥島沖レアアースは来年実証実験よ！2028年以降に商業利用を目指すわよ！」 大陸よ、震えて待て🤥 [117552482]
- 立憲民主党議員、ワールドカップの動画を不正アップロードｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ [595118796]
- 【朗報】IOC「私たちは日本で再び冬季五輪を開催したい」 うおおおおおお！札幌五輪だあああ！！！ [452836546]
- ブラックマンデー対策本部🏡📉😅📉
- 明日から中忍試験だわ