in reply to Compare zone files in directory with what is listed in named.conf
open F, "named.conf.local" or die "$!";
s/^[ \t]*file "db\.(.*)";/$1/ or next;
next if /db.cache/;
push @lines, $_;
opendir D, "$directory" || die "Cant: $1";
my @list = grep /db/, readdir(D);
PerlMonks, of course - how could you ask?
Games & puzzles
Arts & music
Whichever pays my bills
Results (264 votes). Check out past polls.