[過去ﾛｸﾞ] bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ (1001ﾚｽ)

bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ http://qb5.5ch.net/test/read.cgi/operate/1053067870/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

230: 228 [sage] 03/05/20 00:21 ID:vZDlrKy4 まずこいつで検索用データベースファイルを作る。規制リストを 更新したら1回実行すればよい。 proxy_list.dbというデータベースファイルができる。でかくてすまん。 #!/usr/bin/perl $pxck="proxy_list"; $maxlen = 20; open(PHOST,"<$pxck"); my @PIP = <PHOST>; close(PHOST); foreach (@PIP) { chomp; 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))); } } @list = sort(@list); foreach (@list) { $l = length; if ($l > $maxlen) { $maxlen = $l; $str = $_ } } $maxlen = 80; # max size of record is $maxlen ! open(DB, ">$pxck" . ".db") or die "can't open file!"; foreach (@list) { $l = length($_); if ($l <= $maxlen) { print DB $_ . ( " " x ($maxlen - length($_))); } } http://qb5.5ch.net/test/read.cgi/operate/1053067870/230

---

上下前次1-新書関写板覧索設栞歴

---

あと 771 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.009s