Клиенты сети

[anabol]

Всем привет.
На сервере стоит мост из wifi и lan, поднят bind9 и DHCP-сервер.
Не могу понять как из консоли получить всех подключенных к сети клиентов, достаточно их ip адреса.

[ArcFi]

Например, если в роли DHCP выступает dnsmasq, то можно так:

Код: [Выделить]

sort -k4 /var/lib/dnsmasq/dnsmasq.leases

[anabol]

В роли DHCP у меня isc-dhcp-server.
Есть файл /var/lib/dhcp/dhcpd.leases но он весит 500кб и в нем список непонятно чего.

[fisher74]

не помню где брал этот скрипт, не моё

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl

open(InFile, "/var/lib/dhcp3/dhcpd.leases") || die;
while ($line = <InFile>)
{
($n1, $n2, $n3, $n4) = split (" ", $line);
        if ($n1 eq "lease")
        {
        $ip=$n2;
        }
        if ($n1 eq "starts")
        {
        $sdate=$n3;
        }
        if ($n1 eq "ends")
        {
        $edate=$n3;
        }
        if ($n1 eq "hardware")
        {
        $mak=$n3;
        }
        if ($n1 eq "client-hostname")
        {
        $name=$n2;
}
                                                                                                                                                            if ($ip gt "" & $sdate gt "" & $edate gt "" & $mak gt "" & $name gt "")
                                                                                                                                                                {
                                                                                                                                                                chop ($mak);
                                                                                                                                                                chop ($name);
                                                                                                                                                                $lenname = length ($name);
                                                                                                                                                                $n = substr ($name, "1" , $len-2);
                                                                                                                                                                print $ip , " ", $sdate, " ", $edate, " ", $mak, " ", $n, " ", "\n";
                                                                                                                                                                $sdate="";
                                                                                                                                                                $edate="";
                                                                                                                                                                $mak="";
                                                                                                                                                                $name="";
                                                                                                                                                                $n="";
                                                                                                                                                                $lenname="";
                                                                                                                                                                }
                                                                                                                                                                }


[anabol]

Спасибо за скрипт, допилил, теперь то что надо.