perl dns record check

beebe_3

　　

　　
脚本输出结果：
　　
root@ubuntu:~/script# perl dns_check_google.pl
　　

　　
--------------------- List A_Record ----------------------------
　　

　　
www.google.com: 74.125.128.99
　　
www.google.com: 74.125.128.103
　　
www.google.com: 74.125.128.104
　　
www.google.com: 74.125.128.105
　　
www.google.com: 74.125.128.106
　　
www.google.com: 74.125.128.147
　　
Unable to obtain A record : NXDOMAIN
　　
mail.google.com: 74.125.128.17
　　
mail.google.com: 74.125.128.18
　　
mail.google.com: 74.125.128.19
　　
mail.google.com: 74.125.128.83
　　
Unable to obtain A record : NXDOMAIN
　　
***.google.com: 64.9.224.68
　　
***.google.com: 64.9.224.69
　　
***.google.com: 64.9.224.70
　　
Unable to obtain A record : NXDOMAIN
　　

　　
--------------------- List SOA_Record ----------------------------
　　

　　
SOA record:
　　
google.com.     86050   IN      SOA     ns1.google.com. dns-admin.google.com. (
　　
2013015000      ; Serial
　　
7200    ; Refresh
　　
1800    ; Retry
　　
1209600 ; Expire
　　
300 )   ; Minimum TTL
　　

　　
--------------------- List MX_Record ----------------------------
　　

　　
MX Records is :
　　
10 aspmx.l.google.com

　　
20>
　　
30>
　　
40>
　　
50>　　

　　
--------------------- List NS_Record ----------------------------
　　

　　
NS Records :
　　
ns4.google.com
　　
ns1.google.com
　　
ns2.google.com
　　
ns3.google.com
　　

　　
--------------------- List SPF_Record ----------------------------
　　

　　
SPF Records is :
　　
SPF record ok: v=spf1 include:_netblocks.google.com include:_netblocks6.google.com ip4:216.73.93.70/31 ip4:216.73.93.72/31 ~all
　　

　　
--------------------- List AXFR_Record ----------------------------