http://qs321.pair.com?node_id=1033736


in reply to Compare zone files in directory with what is listed in named.conf

Just skip it. 
open F, "named.conf.local" or die "$!";
while(<F>) {
  chomp;
  s/^[ \t]*file "db\.(.*)";/$1/ or next;
  next if /db.cache/;
  push @lines, $_;
}
close F;

[download]
and 
opendir D, "$directory" || die "Cant: $1";
my @list = grep /db/, readdir(D);
closedir D;

[download]

In Section Seekers of Perl Wisdom