纯真ip数据文件php解析类

调用方式：

QQWry::singleton()->location('127.0.0.1');
或
$qqwry = new QQWry();
$qqwry->location('127.0.0.1');

mixed QQWry::location(mixed $ip) — 获取ip中文地址（编码为gbk）

参数：

$ip：ip地址，可以是字符串（例：192.168.1.1），也可以是整数

返回值：数组或false，数组若为空，则未知地址，数组第一项为国家名，第二项为地区名

array QQWry::version() — 获取纯真ip数据文件版本

返回值：字符串（例：2010.10.20）

Demo地址：

http://demo.kilobug.com/ip/?ip=75.75.75.75

纯真ip数据文件的数据结构参考文档：

http://lumaqq.linuxsir.org/article/qqwry_format_detail.html

源码：

class QQWry{
private $version;
private $fp;
private $chr0;
private $filepath = 'qqwry.dat';

private static $instance;

public function __construct() {
/* 打开文件 */
if( !($this->fp = @fopen($this->filepath, 'rb')) )
die('Can\'t open qqwry file');

$this->chr0 = chr(0);

/* 获取索引区指针） */
$tmp = unpack('L2', fread($this->fp, 8));
$this->start = $tmp[1]; $this->tail = $tmp[2]+1;
}

public static function singleton() {
if( !isset(self::$instance) ) {
$clsname = __CLASS__;
self::$instance = new $clsname();
}
return self::$instance;
}

public function location( $ip ) {
if( !is_numeric($ip) )
$ip = ip2long($ip);
if( $ip === false ) return false;
return $this->search( $this->longFormat($ip) );
}

public function version() {
if( !isset($this->version) ) {
$this->version = $this->location(-1);
preg_match_all('/\d+/', $this->version[1], $match);
$this->version = implode('.', $match[0]);
}
return $this->version;
}

private function search( $ip ) {
/* 索引条数 */
$ptail = ($this->tail - $this->start - 1) / 7;
$pnums = intval($ptail / 2);
$pstart = 0;
/* 索引指针 */
$pointer = $this->tail - $pnums * 7 - 1;

while( $pointer >= $this->start && $pointer < $this->tail ) {
fseek($this->fp, $pointer);
$index = unpack('L2', fread($this->fp, 7).$this->chr0);
fseek($this->fp, $index[2]);
$index[3] = unpack('L', fread($this->fp, 4));

$index[3] = $index[3][1];
$index[4] = $this->longFormat( $index[1] );
$index[5] = $this->longFormat( $index[3] );

if( $index[4] <= $ip && $ip <= $index[5] ) { // 找到
/* 获取地址 */
return $this->getLocation($index[2]);
}elseif( $index[4] > $ip ) { // 前面
$ptail = $pnums;
$pnums = $pstart + ceil(($pnums - $pstart) / 2);
$pointer = $this->start + $pnums * 7;
}else{ // 后面
$pstart = $pnums;
$pnums += ceil(($ptail - $pnums) / 2);
$pointer = $this->start + $pnums * 7;
}
$index = NULL;
}
return NULL;
}

private function getLocation( $offset ) {
/* 地址数组，0位国家，1位地区，空则未知地区 */
$addr = array();

/* 标识符 */
$tmp = fread($this->fp, 1);
$index = ord($tmp);

/* 指针（4字节）+标识符（1字节） */
$offset += 5;

if( $index == 1 ) { // 模式1
/* 获取跳转地址 */
$tmp = unpack('L', fread($this->fp, 3).$this->chr0);

/* 开始跳转 */
fseek($this->fp, $offset = $tmp[1]);

/* 读取地区 */
for($i = 0; $i < 2; ++$i) {
/* 获取标识符 */
$tmp = fread($this->fp, 1);
$index = ord($tmp);
if( $index == 1 || $index == 2 ) { // 重定向
$tmp = unpack('L', fread($this->fp, 3).$this->chr0);
fseek($this->fp, $tmp[1]);
$addr[$i] = $this->getStr();
if( !isset($addr[$i]) ) unset($addr[$i]);
$offset += 4;
}elseif( $index == 0 ) { // 没有数据
break;
}else {
$addr[$i] = $tmp . $this->getStr();
if( !isset($addr[$i]) ) unset($addr[$i]);
$offset += strlen($addr[$i])+1;
}
fseek($this->fp, $offset);
}
}elseif( $index == 2 ) { // 模式2
/* 获取跳转地址 */
$tmp = unpack('L', fread($this->fp, 3).$this->chr0);
fseek($this->fp, $tmp[1]);
$offset += 3;
/* 读取地区 */
for($i = 0; $i < 2; ++$i) {
$addr[$i] = $this->getStr();
if( !isset($addr[$i]) ) unset($addr[$i]);
fseek($this->fp, $offset);
}
}else{ // 常规模式
$addr[0] = $tmp;
/* 读取地区 */
for($i = 0; $i < 2; ++$i) {
$addr[$i] .= $this->getStr();
if( !isset($addr[$i]) ) unset($addr[$i]);
}
}

return $addr;
}

/* 长整数格式化 */
private function longFormat( $ip ) {
return $ip + ($ip >= 0 ? -2147483647 : 2147483647);
}

private function getStr() {
$str = '';
while( ($tmp = fread($this->fp, 1)) != $this->chr0 )
$str .= $tmp;
return ord($str) < 32 || $str == ' CZ88.NET' ? NULL : $str;
}

public function __destruct() {
if( $this->fp ) fclose($this->fp);
}
}