从ip138.com查询IP归属
摘要：
#!/usr/bin/env perluse strict;use warnings;use utf8;use diagnostics;use Carp qw(croak carp confess);use LWP::Simple;use Encode qw(decode encode);my $ip = shift @ARGV;my $program_name = $0;my $USAGE = qq{Usage: $program_name <10.11.12.38>};croak $USAGE unless (defined($ip) && is_ip_or_h 阅读全文
posted @ 2013-05-10 17:50 徒涉春冰 阅读(1834) 评论(0) 推荐(0) 编辑