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