[過去ﾛｸﾞ] bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ (1001ﾚｽ)
上下前次1-新

---

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

---

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) {
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($_)));
}
}

---

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

---

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

---

ぬこの手 ぬこTOP 0.011s