DNS::ZoneParse is a Perl module to parse and manipulate DNS Zone Files.

SYNOPSIS

use DNS::ZoneParse;

my $zonefile = DNS::ZoneParse->new("/path/to/dns/zonefile.db", $origin);

# Get a reference to the MX records
my $mx = $zonefile->mx;

# Change the first mailserver on the list
$mx->[0] = { host => mail.localhost.com,
priority => 10,
name => @ };

# update the serial number
$zonefile->new_serial();

# write the new zone file to disk
open NEWZONE, ">/path/to/dns/zonefile.db" or die "error";
print NEWZONE $zonefile->output();
close NEWZONE;

INSTALLATION

perl Makefile.PL
make
make test
make install