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

---

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

---

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);
}
$host = lc($host);

$dbfile = $pxck . ".db";

( $dev , $ino , $mode , $nlink , $uid , $gid , $rdev , $size , $atime , $mtime , $ctime , $blksize , $blocks ) = stat ($dbfile);

$nrec = $size / $maxlen; # number of record
$low = 0;
$high = $nrec - 1;
open(DB,"<$dbfile" );

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!!
break;
}
if ($host lt $rec) {
$high = $mid - 1;
} else {
$low = $mid + 1;
}
}
close(DB);

---

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

---

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

---

ぬこの手 ぬこTOP 0.098s*