文章摘要
本文描述了一个使用 Perl 编程语言编写的脚本，该脚本用于从文件中读取 IP 地址和域名数据。脚本首先从文件中提取 IP 地址和对应的域名，通过指定的 URL 查询 IP 地址的详细信息（如所属地区、运营商等），并将查询结果输出到标准输出。该脚本通过使用 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);
© 版权声明
文章版权归作者所有，未经允许请勿转载。
