21、Perl实现DNS一致性检查的三种方法

Perl实现DNS一致性检查的三种方法

1. 脚本在转换过程中添加内容的应用

在某些情况下，脚本在转换过程中自行添加内容是很有用的。以DNS配置文件生成为例，你可能希望对转换脚本进行改进，使其为数据库中的每个主机插入指向中央邮件服务器的MX（邮件交换）记录。以下是一个简单的代码更改示例：
原始代码：

# print A record
printf OUTPUT "%−20s\tIN A     %s\n",
  $entries{$entry}->{name},$entries{$entry}->{address};

修改后的代码：

# print A record
printf OUTPUT "%−20s\tIN A     %s\n",      
  $entries{$entry}->{name},$entries{$entry}->{address};
# print MX record
print OUTPUT "                   IN MX 10 $mailserver\n";

通过这样的修改，DNS将被配置为使发往该域中任何主机的邮件都由 $mailserver 机器接收。如果该机器被配置为处理其域的邮件，那么只需一行Perl代码，我们就激活了一个非常有用的基础设施组件（即集中式邮件处理）。

2. DNS检查的迭代方法

对于系统和网络管理员来说，创建