GrandFather,
Your script is working just fine. I however am trying to take out the duplicate lines if exists above.
I tried as following but giving me a hash error-
Original-
for my $list (@lists) {
print $list->{line};
printGroups($list->{groups}, %group);
print "\n";
}
with
sub uniq {
my %seen;
grep !$seen{$_}++, @_;
}
for my $list (@lists) {
my @filtered = uniq(@lists);
printGroups(@filtered->{groups}, %group);
# prints acl lines AFTER object-groups
print $list->{line};
print "line 54: ACL line\n\n";
}
Please let me know.