Подскажите, как можно получить список всех ip адресов в локальной сети используя возможности perl? Ответьте, пожалуйста, развёрнуто. Сервер основан на Ubuntu и пользовательские компьютеры тоже на Ubuntu.
2 ответа
В качестве простого решения можно использовать скрипт типа такого:
#!/usr/bin/env perl
# pinger - простой сканер IP-адресов.
use strict;
use warnings;
use v5.10;
use Net::Ping;
use Net::Netmask;
# Если в сети возможны задержки, это значение нужно увеличить, чтобы не было
# ложных срабатываний. Общее время работы сканеры тоже увеличится.
use constant PING_TIMEOUT => 0.1;
# Максимальное количество IP-адресов в подсети
use constant MAX_BLOCK_SIZE => 2 ** 16;
my $netmask = shift or die "Usage: $0 NETMASK\n";
my $block = Net::Netmask->new2($netmask)
or die "$netmask is not a valid netmask";
# Запрещаем блоки слишком больших размеров
my $block_size = $block->size;
if ($block_size > MAX_BLOCK_SIZE) {
die "Too many IP addresses: $block_size, max is " . MAX_BLOCK_SIZE . "\n";
}
say "Querying $block_size IP addresses";
my $pinger = Net::Ping->new;
for my $ip ($block->enumerate) {
if ($pinger->ping($ip, PING_TIMEOUT)) {
say "$ip is alive";
} else {
say "$ip is dead";
}
}
$pinger->close;
Запускать так: ./pinger 192.168.0.0/24
-
Я вчера сделал нечто похожее. Но основой для пинга служил вызов программы NMap, как подсказал Кирилл.– ДенисCommented 25 авг. 2012 в 8:17
Используйте Nmap::Scanner или отправляйте broadcast: http://www.perlmonks.org/?node_id=735745