perl中使用ip138网站查询ip归属地脚本分享（permit ip host）越早知道越好

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

这篇文章描述了一段 Perl 代码，用于从 IP 地址列表中提取信息并生成相关数据。代码使用了 LWP::Simple 库来打开文件，并通过正则表达式提取 IP 地址和域名。随后，代码构建了一个 URL 并发送 HTTP 请求，从响应中提取信息并输出结果。该代码的主要目的是自动化地处理 IP 地址信息并生成所需格式的报告。

#!/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);