perl通过ip获取服务器信息,perl中使用ip138网站查询ip归属地脚本分享

快来打我* 2022-09-04 01:53 22阅读 0赞

这是去年年前写的一个perl脚本 哎 年后都没看过perl了。

复制代码 代码如下:

\#!/usr/bin/perl

use LWP::Simple;

open (FILE,”

while()\{

s/^IP1.\*//g;

my @file =split(/\\,|\\s+/,$\_);

my @file1=”$file\[0\] $file\[1\]“;

my $IP =”$file\[1\]” ;

my $domain=”$file\[0\]“;

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

my $connet =get(“$url”);

my @connet =split(/\\n/,$connet);

foreach my $sc (@connet)\{

if($sc =~ m/td align=”center”>

*  (.\*?)<.>
    
    printf “%-40s %-20s %s\\n”,$domain,$IP,$1 ;
    
    \}
    
    \}
    
    \}
    
    close(FILE);
    
    file 文件的格式 如下
    
    复制代码 代码如下:
    
    conf.f.360.cn   113.105.246.71,113.105.246.78
    
    u.qurl.f.360.cn 218.30.117.155,218.30.117.156
    
    config.dengluqi.net 127.0.0.1
    
    www.sina.com    61.172.201.194,61.172.201.195
    
    dns.msftncsi.com    131.107.255.255
    
    ptlogin2.qq.com 222.73.82.34
    
    结果
    
    复制代码 代码如下:
    
    perl  ip138.pl
    
    ![1-200620105945a2.png][]

[1-200620105945a2.png]: /images/20220829/fc150895ddd940508535198b068b92a0.png

发表评论取消回复

表情：

评论列表（有 0 条评论，22人围观）

还没有评论，来说两句吧...

相关阅读

相关 Java获取IP及归属地

最近我们发现各大社交平台都出现了一个新的功能：IP属地。比如某乎： ![734f4cfce6eb4040aaeece6e483cb765.png][] 这个IP属地

快来打我*/ 2024年03月31日 15:13/ 0 赞/ 90 阅读

相关 springboot获取IP归属地

在 Spring Boot 中获取 IP 归属地可以使用第三方 API 来实现。一种方法是使用网络 API 来查询 IP 地址的归属地。例如，您可以使用淘宝的 IP 地址库

怼烎@/ 2024年03月25日 09:01/ 0 赞/ 110 阅读

相关 Java根据IP地址获取对应归属地

1 前言最近，各大平台都新增了评论区显示发言者ip归属地的功能，例如哔哩哔哩，微博，知乎等等，下面，就来讲讲，Java 中是如何获取 IP 属地的 2 获取IP地址

深碍√TFBOYSˉ_/ 2023年10月09日 16:18/ 0 赞/ 37 阅读

相关 Java根据ip地址获取归属地

最近，各大平台都新增了评论区显示发言者ip归属地的功能，例如哔哩哔哩，微博，知乎等等。 ![fd4221fa28754a6d81aa1c3b108a2fb4.png][]

淡淡的烟草味﹌/ 2023年10月03日 00:16/ 0 赞/ 31 阅读

相关免费常用IP归属地查询API

引言因毕设需要，需要使用到根据IP地址查询归属地经过百度查询，发现如下几个api可以尝试，本人决定使用最后一个api 免费常用IP归属地查询API ip-

柔情只为你懂/ 2023年09月24日 18:39/ 0 赞/ 89 阅读

相关 PHP 快速获取客户端IP地址及ip归属地

一、获取客户端ip地址 function getClientIp(){ if (getenv("HTTP_CLIENT_IP") && strc

男娘i/ 2023年06月24日 12:22/ 0 赞/ 36 阅读

相关开源API查询IP地址归属信息

1. 太平洋IP地址获取IP信息 - 推荐一 [http://whois.pconline.com.cn/ipJson.jsp?ip=64.62.252.162&json

约定不等于承诺〃/ 2023年02月22日 08:23/ 0 赞/ 34 阅读

相关 perl通过ip获取服务器信息,perl中使用ip138网站查询ip归属地脚本分享

这是去年年前写的一个perl脚本哎年后都没看过perl了。复制代码代码如下: \!/usr/bin/perl use LWP::Simple; open (FI

快来打我*/ 2022年09月04日 01:53/ 0 赞/ 23 阅读

相关 java实现IP归属地查询

IP归属地查询使用ip-attribution.dat文件实现IP归属地查询。[下载地址][Link 1] [网盘下载][Link 2] 提取码：zdhv

拼搏现实的明天。/ 2022年04月23日 13:16/ 0 赞/ 318 阅读

相关计算ip地址归属地

在很多场景下我们可能都会遇到根据用户某信息获取其位置信息的徐求，比较常见的可能就是根据ip或电话号码来计算了。这里介绍以ip地址来计算归属地，以具体需求来说明。使用scala语

小灰灰/ 2021年11月01日 07:22/ 0 赞/ 390 阅读