у меня в сети второй скрипт заставить работать так и не смог.
Я не силен в перое, но тем не менее, переделал ваш первый скрипт и сделал нечто среднее между первыйм и вторым =) вот что у меня получилось:
#!/usr/bin/perl -wuse Text::Diff;
# логин для общения с контроллером домена у всех одинаков
$login="null";
$password="c00l_password";
# главный домен
$domain0="DOMAIN";
$dc0="192.168.200.3";
# дочерний домен
$domain4="OF4";
$dc4="192.168.200.204";
# тут параметры для других дочерних доменов
# .....
$path="/etc/squid/acl";
$reload_squid_cmd="/etc/init.d/squid reload";
$InetGroup="inet-full_access";
$i=0;
# 0-е отделение
# Нужно убрать префикс "DOMAIN\" впереди т.к. клиенты головного его не используют
@group_check= sort `/usr/bin/net rpc group MEMBERS $InetGroup -U $login%$password -S $dc0`;
@group_check = grep {/^$domain0\\/} @group_check;
foreach $gc (@group_check)
{
$gc =~ s/DOMAIN\\//;
$new_group_check[$i] = $gc;
# print "$new_group_check[$i]";
# print " - $i\n";
$i++;
}
# 4-е отделение - дочерний домен OF4.DOMAIN.RU
# Заменять \ на +. с \ слишком много мароки
@group_check= sort `/usr/bin/net rpc group MEMBERS $InetGroup -U $login%$password -S $dc4`;
@group_check = grep {/^$domain4\\/} @group_check;
foreach $gc (@group_check)
{
$gc =~ tr/\\/+/s;
$new_group_check[$i] = $gc;
# print "$new_group_check[$i]";
# print " - $i\n";
$i++;
}
# тут секции для других дочерних доменов. я не стал делать лишних циклов
# .....
# Проверка на изменение и запись в файл
$col=@new_group_check;
#print "$col\n";
my $diff = diff \@new_group_check, "$path/$InetGroup.acl";
if ($diff and $col) {
open (GROUPFILE, ">$path/$InetGroup.acl") or die "Can't create $InetGroup.acl: $!";
print GROUPFILE @new_group_check;
$reconfigure++;
}
close GROUPFILE;
system("$reload_squid_cmd") if ($reconfigure);
