纯真网络2020年6月25日IP数据

leolovenet · Jul 3, 2020 · 20190aa · 20190aa
1 parent 4890af5
commit 20190aa
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 15 deletions.
diff --git a/lib/IP/QQWry/Dumper.pm b/lib/IP/QQWry/Dumper.pm
@@ -9,20 +9,6 @@ use Socket;
 
 use feature qw(say);
 
-sub _str {
-    my $self = shift;
-    my $str = ""; # fix SUPER class "uninitialized value" warning
-    my $tmp;
-
-    read $self->{fh}, $tmp, 1;
-    while (ord $tmp > 0) {
-        $str .= $tmp;
-        read $self->{fh}, $tmp, 1;
-    }
-
-    return $str;
-}
-
 # https://www.perl.com/article/creating-ip-address-tools-from-scratch/
 sub long2ip {
     my $decimal = shift;
@@ -124,4 +110,4 @@ sub dump {
 
 1;
 
-__END__
+__END__
diff --git a/qqwry.mmdb b/qqwry.mmdb