おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。
ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずは>>99-100おながいします。
*99の指定したCGIを*00が作るスレ
1nobodyさん
02/11/17 11:43ID:r2gR01qm310perlお勉強中
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:??? もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて…
レスを投稿する
ニュース
- 日本代表FW塩貝健人の発言にブラジル代表主将マルキーニョスが返答「ブラジルは今も素晴らしいセレソンだ」 [王子★]
- 【速報】 レバノンで巨大な爆発 動画あり [お断り★]
- あぼーん
- 亀梨和也が田中みな実と結婚発表 妊娠も「新しい命も授かっています」ファンクラブサイトで ★6 [首都圏の虎★]
- 新卒一括採用はオワコンか 強まる即戦力志向、中途比率は5割超え [どどん★]
- 「デュエルって何ですか？」 日本代表ブラジル戦へ 『サンモニ』膳場貴子アナがサッカー解説者に質問… 新しいサッカーの言葉 [冬月記者★]
- 【悲報】 日本人さん、ついに「たこ焼き」が食えなくなる [303493227]
- 【悲報】AIバブル、崩壊 マイクロン大暴落😇😇😇 [802294884]
- 貧乏人「自転車ないから皆に走ってついていった。チューチューの端もらってた」 こんな事、ジャップでありえる？(´・ω・`) [592058334]
- 😰🏡
- 滝沢秀明と赤西仁がショッピング
- 自殺できる、マツキヨとかで買える物は？