从ip138.com查询IP归属

最新推荐文章于 2022-10-18 10:19:30 发布

转载最新推荐文章于 2022-10-18 10:19:30 发布 · 689 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/whymaths/archive/2013/05/10/3071623.html

本文介绍了一个使用Perl编写的脚本，该脚本可以查询并显示指定IP地址的相关地理位置信息。通过调用LWP::Simple模块从ip138.com获取数据，并解析返回的HTML内容来提取有用信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/env perl

use 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_hostname($ip));

my $url = "http://ip138.com/ips138.asp?ip=$ip&action=2";

my $content = get($url);

for my $sc (split (/\n/, $content)) {
    if($sc =~ m/td align="center"><ul class="ul1"><li>(.*?)<.*/) {
        my $msg = decode("gb2312", $1);
        $msg = encode("utf8", $msg);
        printf "%-20s %s\n", $ip, $msg;
    }
}


sub is_ip_or_hostname {
    my $str = shift;
    return 0 unless defined $str;
    if ($str =~ m/^[\d\.]+$/ && $str !~ /\.$/) {
        if ($str =~ m/^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
            return 1;
        } else {
            return 0;
        }
    } elsif ($str =~
            m/^[a-zA-Z0-9][-a-zA-Z0-9]*(\.[a-zA-Z0-9][-a-zA-Z0-9]*)+$/) {
        return 1;
    } else {
        return 0;
    }
}

转载于:https://www.cnblogs.com/whymaths/archive/2013/05/10/3071623.html