[過去ﾛｸﾞ] bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ (1001ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
222: 名無しさん＠お腹いっぱい。 03/05/19 23:49 ID:foOIoNHf(1) AAS
たくさんの人に愛されてきたのですね。＞bbs.cgi
223(1): コナン ◆SJSEX69q3Q 03/05/20 00:00 ID:nF8WRY4x(1) AAS
bbs.cgiが20030519になってるわけだが・・・(￣ー￣)ﾆﾔﾘｯ
224: 名無しさん＠お腹いっぱい。 03/05/20 00:01 ID:NvpxrT0H(1) AAS
ひろゆきさんも、大事な一人娘を愛しているんですね
225: 名無しさん＠お腹いっぱい。 03/05/20 00:05 ID:FthSt6oi(1/10) AAS
NHK人形劇 ニチャンニチャン物語
226: 名無しさん＠お腹いっぱい。 03/05/20 00:13 ID:S/BnmfPi(1) AAS
>>223
アクセスプラス規制だと思われ
227: 名無しさん＠お腹いっぱい。 03/05/20 00:16 ID:96oJEnlM(1) AAS
>>69
(･∀･)ﾎﾎｳ
外部ﾘﾝｸ[html]:www.domo2.net
とりあえず何が変わったんだろう？
広告規制関連かしら。
228(9): 名無しさん＠お腹いっぱい。 03/05/20 00:19 ID:vZDlrKy4(1/6) AAS
perlは久々なんだけど、何とか2分探索を実装した。
正規表現は無理だけど、前方一致でいけます。
(規制リストに example.com があったら、
www.example.comとかmail.example.comを引っ掛ける)
>>156のテストだと、2倍強くらいしか速くなってない。
多分、コードがでかくなったせいで、スクリプトのparseに時間が
かかるようになったからと思われ。
229: 名無しさん＠お腹いっぱい。 03/05/20 00:20 ID:FthSt6oi(2/10) AAS
要するに、bbs.cgiに２ちゃんねるのロジックを詰め込みすぎているのか？
230(1): 228 03/05/20 00:21 ID:vZDlrKy4(2/6) AAS
まずこいつで検索用データベースファイルを作る。規制リストを
更新したら1回実行すればよい。
proxy_list.dbというデータベースファイルができる。でかくてすまん。
#!/usr/bin/perl
$pxck="proxy_list";
$maxlen = 20;
open(PHOST,"<$pxck");
my @PIP = <PHOST>;
close(PHOST);
foreach (@PIP) {
省25
231(2): 228 03/05/20 00:23 ID:vZDlrKy4(3/6) AAS
次は検索用スクリプト。でかくてすまん。
#!/usr/bin/perl
$pxck="proxy_list";
$maxlen = 80;
$host = $ARGV[0];
if ( ! ($host =~ /^([0-9]+\.)*([0-9]+)$/) ) { # not IP address
@t = split /\./, $host;
@t = reverse @t;
$host = join (".", @t);
}
省24
232(5): 名無しさん＠お腹いっぱい。 03/05/20 00:32 ID:2BSs0sVK(1/3) AAS
おいらこんなの作ってみた。
小さいけどHASH使うやつ。
#! /usr/bin/perl
$pxck="proxy_list";
$HOST=$ARGV[0];
open(PHOST,"<$pxck");
while (<PHOST>) {
chomp;
$PIP{$_} = 0;
}
省17
233: 名無しさん＠お腹いっぱい。 03/05/20 01:02 ID:bdI3yMHP(1) AAS
そういえば WebProg板で
last modified 2001年 12月 19日 by ひろゆき
の bbs.cgi が流出してたことがあったなぁ・・・
234: 名無しさん＠お腹いっぱい。 03/05/20 01:58 ID:FthSt6oi(3/10) AAS
ｱﾗﾔﾀﾞ
235(1): 228 03/05/20 02:28 ID:vZDlrKy4(4/6) AAS
>>232 ｶｺｲｲ!!
DB_File使えばO(1)だな
236: 228 03/05/20 02:30 ID:vZDlrKy4(5/6) AAS
厳密にはO(1)じゃないけど、ほとんどO(1)だね
237: 名無しさん＠お腹いっぱい。 03/05/20 02:35 ID:DKK3Skv6(1) AAS
処理時間が短くて済むのがハッシュの特徴だからね。
しかし、その反面メモリを大量に食うというデメリットがある。
呼び出されるたびに毎回メモリ上に大量のデータを展開するのは
呼び出しが集中するとマズい気がするが、
そこらへんはどうなるかやってみないとわからないだろうなぁ。
238(3): ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 03/05/20 02:55 ID:??? AAS
>>231
プロキシリストは、IPじゃなくて、リモホも入ってたりします。。。
***.com以下のアクセスを全て規制みたいな、、
239: 名無しさん＠お腹いっぱい。 03/05/20 02:59 ID:FthSt6oi(4/10) AAS
>>238
ちゃんと判別してるよーにみえるぞ↓
>if (/^([0-9]+\.)*([0-9]+)$/) { # this is IPv4 address
>@list = (@list, $_);
>} else { # this is hostname
>@t = split /\./;
>@t = reverse @t;
>@list = (@list, lc(join ("." , @t)));
>}
240: ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 03/05/20 03:03 ID:??? AAS
うわーい、、、アルゴリズムをよくわかってないおいらです。。
IPをみて、数字がでかいかどうかを判定してるんじゃないんすか？
while ($low <= $high) {
$mid = int(($high + $low) / 2);
seek(DB, $mid * $maxlen, 0);
read(DB, $rec, $maxlen);
$rec =~ s/ //g;
# print "$mid: $rec\n";
if ($host =~ /$rec\./ || $host eq $rec ) {
print "."; # found!!
省2
241(1): 名無しさん＠お腹いっぱい。 03/05/20 03:11 ID:FthSt6oi(5/10) AAS
ほんとだ。よくみたら数値比較してるっぽいな。
IPとホスト名まぜるのはもうちょっと工夫がいるな。
上下前次1-新書関写板覧索設栞歴
あと 760 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.015s