15 lines
275 B
Perl
Executable File
15 lines
275 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $fh;
|
|
open($fh, "dig -t AXFR \@127.0.0.1 private.invalid. |")
|
|
|| die "Can't open dig: $!";
|
|
|
|
while (<$fh>) {
|
|
if (/^(\S+)._vhosts.private.invalid.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
|
|
print $1, ". master: ", $2, "\n";
|
|
}
|
|
}
|