https://github.com/bollwarm/ipwhere/blob/master/QQWry.Dat 安装库可以简单通过cpanm IP::IPwhere IP::QQWry
并把下面部分注释掉。
my $qqwry = IP::QQWry->new('QQWry.Dat');
sub gquery {
my ($ip)=shift; my ($base,$info) = $qqwry->query($ip); my $result; $result="qqwry $ip:"; $result.=decode('gbk',$base); $result.=decode('gbk',$info)."\n"; return $result;
}
2 POD Errors
The following errors were encountered while parsing the POD:
- Around line 7:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 8:
Non-ASCII character seen before =encoding in '本插件需要，安装模块IP::IPwhere，如果你需要纯真的信息'. Assuming UTF-8