Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享

 更新时间:2020年6月29日 13:42  点击:1557

这里首先介绍下nali的这个开源小程序,项目地址:http://code.google.com/p/qqwry/

以下介绍来自项目的负责人的网站的陈述:

复制代码 代码如下:

下载

nali-0.2.tar.gz – 2011-09-11发布(下载链接一,下载链接二)
nali-0.1.tar.gz – 2009-08-16发布

说明

nali,名字取自中文“哪里”的拼音。nali包含一组命令行程序,其主要功能就是把一些网络工具的输出的IP字符串,附加上地理位置信息(使用 纯真数据库QQWry.Dat)。例如218.65.137.1会变成218.65.137.1[广西南宁市 电信]。查询是在本地进行,并不会进行联网查询,所以效率方面不会对原始命令产生什么影响。

目前包含以下几个命令:
nali
nali-dig
nali-nslookup
nali-traceroute
nali-tracepath
nali-ping

使用这些命令的前提是,他们对应的命令必须存在。例如你要用nali-dig,必须保证dig是存在的。他们的用法和原始命令是一样的。例如nali-dig,用法就和dig一样。(nali-dig等同于dig |nali)

大家可能注意到了nali这个命令,它可以对标准输出的IP串附加上地理信息。nali-*系列工具都是基于这个来实现的。

如果你觉得输入nali-xxx麻烦,那么可以做一些alias,例如
surfchen@mac:~$ alias traceroute='nali-traceroute'
surfchen@mac:~$ alias dig='nali-dig'

如果你在使用一种没有被包含在nali包里的网络工具,那么可以这样:
surfchen@mac:~$ my_network_tool|nali
Server 115.168.51.180[中国 电信CDMA]
也就是说,nali这个命令,可以对标准输出的ip,附加上地理信息。同理,如果你不喜欢用nali-dig,那么也可以用dig ip|nali这样的命令。

当然,你也可以直接用nali查询IP地址信息:
surfchen@mac:~$ nali 222.217.167.105
222.217.167.105[广西南宁市 电信]

安装

./configure
make
[sudo] make install

更新IP数据库

可用nali-update命令来更新IP数据库

开发

svn co http://qqwry.googlecode.com/svn/trunk/nali/ nali
注意,svn里并不包含QQWry.Dat,如需要从svn版本编译,那么请自行下载QQWry.Dat,然后放入项目的share目录。
Bug提交:http://code.google.com/p/qqwry/issues/list
例子

例子

下面有3个例子。
chenze@osx:~$ nali-traceroute www.travel-web.com.tw
traceroute to ns806.travel-web.com.tw (219.87.177.148[台湾省 台湾大宽频]), 64 hops max, 40 byte packets
1 192.168.0.1[局域网 对方和您在同一内部网] (192.168.0.1[局域网 对方和您在同一内部网]) 0.747 ms 0.353 ms 0.278 ms
2 115.168.51.180[中国 电信CDMA] (115.168.51.180[中国 电信CDMA]) 435.595 ms 65.757 ms 48.906 ms
3 115.168.51.161[中国 电信CDMA] (115.168.51.161[中国 电信CDMA]) 70.990 ms 66.751 ms 46.936 ms
4 115.168.51.17[中国 电信CDMA] (115.168.51.17[中国 电信CDMA]) 192.944 ms 72.679 ms 46.958 ms
5 222.217.167.105[广西南宁市 电信] (222.217.167.105[广西南宁市 电信]) 66.963 ms 54.412 ms 54.943 ms
6 218.65.137.1[广西南宁市 电信] (218.65.137.1[广西南宁市 电信]) 102.969 ms 73.220 ms 47.016 ms
7 202.97.21.165[广西 电信骨干网] (202.97.21.165[广西 电信骨干网]) 432.915 ms 161.390 ms 165.018 ms
8 * 202.97.40.225[中国电信 骨干网] (202.97.40.225[中国电信 骨干网]) 185.598 ms 161.236 ms
9 202.97.33.202[上海市 电信骨干网国际出口] (202.97.33.202[上海市 电信骨干网国际出口]) 79.857 ms 66.537 ms

工欲善其事,必先利其器,利器有了,下面说下我们的需求。有一批域名,31个DNS地址,现在要轮循这些域名在31个DNS的解析结果是不是一样的,一样则输入到另外一个文件;下面是脚本:

复制代码 代码如下:

#!/usr/bin/perl
use strict;

open DNS, “DNS_IP.txt” or die “i can't filnd the file1!\n”;;
open URL, “url_jiangsu.txt” or die “i can't filnd the file!\n”;;
open NUM, “>>numbers.txt”;
open URLS,”>>url_in_jiangsu.txt”;
while( my $url=<URL>){
chomp $url;
my $num_1=0;
my $all=0;
$num_1='/usr/bin/dig \@221.131.143.69 $url +tries=1 +time=3 +short|grep -v ‘[a-z].*'|head -1|nali|grep -q ‘江苏.*移动' && echo  1||echo  0′;#注意这里第一和最后一个单引号是其实是tab键上面那个
while (my $dns=<DNS>){
chomp $dns;
my $num='/usr/bin/dig \@$dns $url +tries=1 +time=3 +short|grep -v ‘[a-z].*'|head -1|nali|grep -q ‘移动' && echo  1||echo  0′;#注意这里第一和最后一个单引号是其实是tab键上面那个
$all+=$num;
}
if($all == 31 and $num_1==1){
print URLS  $url.”\n”;
}
print NUM $url.” “.$all.”\n”;
seek( DNS, 1, 0 );

}
close DNS;
close URL;
close URLS;
close NUM;


[!--infotagslink--]

相关文章

  • Cloudflare国内自选IP节点整理收录

    一般来说为了达到隐藏自身 IP,我们都会选择一些 CDN 服务,目前用的最多的免费 CDN 是 Cloudflare。但是正常情况下 Cloudflare 是不能自己选择IP,有时候分配给我们的 IP 可能表现不佳,也只能将就着用。但是我们都希望可以用上 CF 比较快的 IP。那么自选IP,就显得很必要了。...2022-09-23
  • Perl模块编写说明

    这两天在用Perl编写一些监控脚本,其实写代码也是一件挺有意思的事情,就是挺废时间的。而且,由于语法不太熟,基本想到一个东西都要先Google一下看怎么实现。...2020-06-29
  • 2022年最新Cloudflare免费自选IP教程(非Partner)

    写在开头众所周知,CF在去年底大规模禁用Host API key,使得Partner自选法失效.但最近,Cloudflare为所有计划添加了100个SaaS域免费额度(以前$2一个).经过一番摸索,这个船新的...2022-09-23
  • Perl与JS的对比分析(数组、哈希)

    下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧...2020-06-29
  • perl 模式匹配参数详解

    一、简介 模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词:@array = split(/ /, $line);二、匹配...2020-06-29
  • Perl localtime时间函数的应用介绍

    Perl时间函数localtime的使用介绍,这里简单的介绍下,更多请查看官方介绍...2020-06-29
  • Perl中的特殊内置变量详细介绍

    这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下...2020-06-29
  • 讲Perl中的本地时间与UNIX时间戳间相互转换的方法

    这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下...2020-06-29
  • perl 列表和数组变量详解

    一、列表 列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。 注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同...2020-06-29
  • Perl学习笔记之CPAN使用介绍

    这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下...2020-06-29
  • Perl AnyEvent中的watcher实例

    这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下...2020-06-29
  • Perl 批量添加Copyright版权信息

    对所有输入文件,如果没有版权信息则加上版权信息,否则什么都不做,并对原文件以.bak结尾备份,需要的朋友可以参考下...2020-06-29
  • perl获取日期与时间的实例代码

    perl获取日期与时间的例子,供大家学习参考...2020-06-29
  • golang DNS服务器的简单实现操作

    这篇文章主要介绍了golang DNS服务器的简单实现操作,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-01
  • Perl中使用MIME::Lite发送邮件实例

    这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下...2020-06-29
  • Nginx DNS resolver配置实例

    这篇文章主要介绍了Nginx DNS resolver配置实例,本文讲解在proxy_pass 和 upstream server 通信的时候需要手动指定 resolver,本文就给出了配置实例,需要的朋友可以参考下...2016-01-27
  • Perl中的列表和数组学习笔记

    这篇文章主要介绍了Perl中的列表和数组学习笔记,本文讲解了列表、数组--列表的存贮、数组的存取、字符串中的方括号和变量替换、列表范围、数组的输出等内容,需要的朋友可以参考下...2020-06-29
  • 使用perl实现拆分数据表(mysql)并迁移数据实例

    这篇文章主要介绍了使用perl实现拆分数据表(mysql)并迁移数据实例,本文提供了3个脚本,分别用于拆分数据表、迁移数据、插入测试数据,需要的朋友可以参考下...2020-06-29
  • 7个perl数组高级操作技巧分享

    这篇文章主要介绍了7个perl数组高级操作技巧,本文讲解了数组去重、数组合并、查找最大值、列表归并等内容,需要的朋友可以参考下...2020-06-29
  • perl后门,正向和反向!实例代码

    写过很多关于Perl编程,今天继续分享一篇利用perl后门实现正向和反向连接的实例代码,需要的朋友可以参考下其中的内容详情...2020-06-29