国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - perl - Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享

Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享

2020-06-19 10:40鄉村運維 perl

這篇文章主要介紹了Perl中使用dig和nali判斷DNS解析地址歸屬地是否一致腳本分享,本文同時介紹了一個使用純真IP庫實現的Perl查詢工具,需要的朋友可以參考下

這里首先介紹下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;

 

延伸 · 閱讀

精彩推薦
  • perlPerl使用nginx FastCGI環境做WEB開發實例

    Perl使用nginx FastCGI環境做WEB開發實例

    這篇文章主要介紹了Perl使用nginx FastCGI環境做WEB開發實例,實現了路由系統和模板系統,需要的朋友可以參考下...

    Perl教程網2412020-06-18
  • perlPerl List::Util模塊使用實例

    Perl List::Util模塊使用實例

    這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和 、求一組數字的最大值與最小...

    腳本之家4712020-06-22
  • perlperl命令行參數內建數組@ARGV淺析

    perl命令行參數內建數組@ARGV淺析

    這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下 ...

    perl教程網6162020-06-18
  • perlPerl的經典用法分享

    Perl的經典用法分享

    Perl的經典用法分享,學習perl的朋友可以參考下 ...

    腳本之家6562020-06-06
  • perlperl pop push shift unshift實例介紹

    perl pop push shift unshift實例介紹

    perl的pop跟push操作數組的最右邊,shift跟unshift操作數組的最左邊 ...

    腳本之家4612020-06-10
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一個pragma(預編譯指示符),專門用來預定義全局變量,這些預定義后的全局變量在qw()列表中,在整個引用perl文件中皆可使用,即便使...

    perl教程網6812020-06-16
  • perlperl常見問題集合之二

    perl常見問題集合之二

    哪些平臺上有 Perl?要到哪里去找? Perl的標準發行版(由 perl 發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔...

    腳本之家2102020-05-29
  • perlPerl從文件中讀取字符串的兩種實現方法

    Perl從文件中讀取字符串的兩種實現方法

    有時候我們需要從文件中讀取字符串,這里簡單介紹下, 需要的朋友可以參考下 ...

    腳本之家6252020-06-08
Weibo Article 1 Weibo Article 2 Weibo Article 3 Weibo Article 4 Weibo Article 5 Weibo Article 6 Weibo Article 7 Weibo Article 8 Weibo Article 9 Weibo Article 10 Weibo Article 11 Weibo Article 12 Weibo Article 13 Weibo Article 14 Weibo Article 15 Weibo Article 16 Weibo Article 17 Weibo Article 18 Weibo Article 19 Weibo Article 20 Weibo Article 21 Weibo Article 22 Weibo Article 23 Weibo Article 24 Weibo Article 25 Weibo Article 26 Weibo Article 27 Weibo Article 28 Weibo Article 29 Weibo Article 30 Weibo Article 31 Weibo Article 32 Weibo Article 33 Weibo Article 34 Weibo Article 35 Weibo Article 36 Weibo Article 37 Weibo Article 38 Weibo Article 39 Weibo Article 40
主站蜘蛛池模板: 国产亚洲精品精品国产亚洲综合 | 久久噜噜噜精品国产亚洲综合 | 国产高清视频一区 | 国产激情在线视频 | 国产精品精品 | 国产一区二区三区四 | 欧美激情一区二区三级高清视频 | 亚洲精品www久久久久久广东 | 韩国精品 | 91视频国产网站 | 国产在线视频xxx | 另类视频区 | 天天干天天操天天干 | 亚洲在线观看免费视频 | 亚洲成人精品久久 | 欧美激情一区二区三级高清视频 | 欧美激情国产日韩精品一区18 | 日本中文字幕在线看 | 精品视频在线免费观看 | 精品精品 | 一区二区三区日韩在线 | 成人日韩av| 伊人精品视频 | 91精品国产综合久久久久久 | 欧美日韩国产一区二区三区 | 国产精品成人在线观看 | 国产美女精品人人做人人爽 | 国产精品免费在线 | 黄视频免费观看网站 | 成人国产精品久久 | 免费一区在线观看 | 91亚洲国产 | 伊人婷婷 | 久久久91精品国产一区二区三区 | 久久久国产精品 | 九一麻豆精品 | 免费三级在线 | 人人99精 | 色av综合网 | 亚洲第一免费看片 | 国产高清一区二区三区 |