#!/usr/bin/perl
#  Putting all of the zonefiles lised in named.conf into an array

my $srce = "named.conf.brian";
my $string1 = "db.";
open(my $FH, $srce) or die "Failed to open file $srce ($!)";
my @buf = <$FH>;
close($FH);
my @lines = grep (/$string1/, @buf); #grepping for db.
map {s/"//g; } @lines; #removing quotation marks
map {s/;//g; } @lines; #removing semicolon
#map {s/^.*file.*db.//g; } @lines; #removing file db.
map {s/^.*file //g; } @lines; #removing the word file
print @lines;
 
#  Putting listing of all of the files in ~/zonefiles directory into an array

#  Assigning variable to directory
my $directory = "~/zonefiles/";

opendir(D, "$directory") || die "Can't opendir $directory: $!\n";
my @list = readdir(D);
closedir(D);

foreach my $f (@list) {
  print "$f\n";
}