03/07/12 15:28 FW3/pTdg.net
>>99ネタ#1
#/usr/local/bin/perl
use Socket;
use FileHandle;
$list_url = 'URLﾘﾝｸ(www.ff.iij4u.or.jp)';
&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;
308:perlお勉強中
03/07/12 15:29 FW3/pTdg.net
>>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\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
}
}
309:nobodyさん
03/07/12 15:55 .net
ものすごい数のサンプルと画像を集めてみました。モロ
こきすぎ注意
URLﾘﾝｸ(www.h2.dion.ne.jp)
310:perlお勉強中
03/07/12 16:37 .net
>>299のネタ
#/usr/local/bin/perl
use Socket;
use FileHandle;
# 最新のURLを探索
$list_url = 'URLﾘﾝｸ(www.who.int)';
$key = 'Full text';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="URLﾘﾝｸ(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;
311:perlお勉強中
03/07/12 16:38 .net
>>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$/);
}
}
312:山崎 渉
03/07/15 11:07 .net
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
313:山崎 渉
03/08/02 02:42 .net
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
314:ぼるじょあ
03/08/02 05:29 .net
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
315:nobodyさん
03/08/02 17:47 .net
次の00には何を作ってもらうかを考えよ～
316:99
03/08/14 10:32 .net
>>100
早く作れよ頃すぞ
317:山崎 渉
03/08/15 22:45 .net
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
318:nobodyさん
04/03/21 15:32 .net
>>100
早くつくれよ、こっちは待ってんだぞ
319:!100
04/03/22 04:48 .net
<title>２ちゃんねるルーレット</title>
<?php
$url = 'URLﾘﾝｸ(127.0.0.1)';
$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 作ってやったから金払え
320:nobodyさん
04/06/18 10:15 .net
while(1) {
print("ぬるぽ\n");
}
321:nobodyさん
04/12/18 17:51:09 neHl2NC1.net
age
322:nobodyさん
08/11/07 14:31:55 YMX4hGRf.net
ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
323:nobodyさん
08/12/23 14:29:41 IREBlBH+.net
age
324:電脳プリオン
11/12/11 22:20:46.62 .net BE:486490368-2BP(1960)
| | ｶﾞｶﾞｶﾞｶﾞｶﾞｯ
| |
人
∧＿∧ < >_∧∩
（ ・∀・） 人｀Д´）/ ←>>272
と ） < >_∧∩
Ｙ /ノ .人｀Д´）/ ←>>313
/ ） < >_∧∩
＿/し' ／／. Ｖ｀Д´）/ ←>>320
（＿フ彡 /
325:nobodyさん
13/03/27 19:39:59.35 IuHY8fTv.net
_
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
326:nobodyさん
17/12/30 13:00:29.15 YhlYw6jg.net
誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO
327:nobodyさん
23/10/15 04:32:20.79 .net
もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて…