игнорируем эту строку, если она
игнорируем эту строку, если она находится в домене,
заданном ключом -f
next if (defined $opt_f && ($dn =' /~$opt_f/));
если мы не встречали раньше имя этого пользователя,
просто создаем список доменов для этого пользователя и
сохраняем эту информацию в хэше списков
unless (exists $userinfo{$user}){
$userinfo{$user} = [$dn];
в противном случае нам придется нелегко:
см. приведенное ниже объяснение
else {
&AddToIfo($user.Sdr):
closed-AST).
Теперь рассмотрим отдельные подпрограммы, предназначенные для разрешения сложных ситуаций в программе. Первая подпрограмма &domain() принимает полностью заданное доменное имя, т. е. имя узла с полным доменным именем, и возвращает лучшую догадку о доменном имени для этого узла. Есть две причины, по которым подпрограмма должна быть довольно умна:
адрес сети класса С, разделенной на подсети по границе байта. На практике это означает, что доменным именем мы считаем первые три октета адреса. Это позволяет нам считать регистрацию в системе с адресов 192.168.1.10 и 192.168.1.12 регистрацией из одного логического источника. Вероятно, это не лучшее предположение, но это лучшее, что мы можем сделать, не обращаясь при этом к другому источнику информации (да и в большинстве случаев это работает). Если пользователь не указывает ключ -i, мы считаем весь IP- адрес доменом.
