前几天 DonkeyServer 被迫关闭了,原来的服务器列表里却不剩几个可用的服务器。连忙找人家 eMule 的服务器列表──server.met,打开一看,二进制的,晕!还好有 spec。
# !/usr/bin/perl -w
#
# server.met ref:
# http://www.amule.org/wiki/index.php/Server.met_file
#
use strict;
my ( $buf , $verify , $servers , $ip , $port , $tags , $tag_type , $tag_name_length ,
$tag_name , $tag_value_length , $tag_value );
my @ip ;
my %tagid = ( 0x01 => " Server name " , 0x0b => " Description " , 0x0c => " Ping " ,
0x0d => " Fail " , 0x0e => " Preference " , 0x85 => " DNS " , 0x87 => " Max users " ,
0x88 => " Soft files " , 0x89 => " Hard files " , 0x90 => " Last ping " ,
0x91 => " Version " ,