[решено]Помогите со скриптом на Perl)

[DonRodrigo]

Прошу извинить , если сильно надоел) Все никак не могу дописать:)

вот код:

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

#!/usr/bin/perl
use Net::Ping;
$host = "128.0.0.12";
$p = Net::Ping->new();
if($p->ping($host))
{
print "$host is alive.\n"
}
else
{
print "$host is not alive.\n"
}
$p->close();
надо бы чтобы работало не с заданным айпи , а сканировало сетку и выдававло кол-во раб.комп. в консоль или файл . Thx

[Мангуст]

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

for my $ip (2..254) {
 $host = "128.0.0." . $ip;
  ...
}
Если больше - второй цикл, и т. д. А еще можно поизучать fping.

[DonRodrigo]

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

for my $ip (2..254) {
 $host = "128.0.0." . "$ip";
  ...
}
Если больше - второй цикл, и т. д. А еще можно поизучать fping.

странно, но опять работает только  с одним хостом
Пользователь решил продолжить мысль 22 Марта 2011, 16:29:23:вот ещё:(взято из ifconfig)

inet addr:192.168.201.211    Mask:255.255.255.0

как я понял , надо последнее звено(выделенное красным) прогнать в цикле от 0 до 254(первые 3 звена у всех  машин одинаковы) т.е.

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

for my $ip (0..254) , "следуя" маске...
но , ничего не получилось... :-
ПС: а на bash'e не проще сделать?)
Пользователь решил продолжить мысль 22 Марта 2011, 17:15:36:выводит всегда : 192.168.201.254 is not alive.

[Yurror]

Дорогие велосипедостроители, используйте nmap -sP 192.168.1.0/24

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

yurik@book:~$ nmap -sP 192.168.1.0/24

Starting Nmap 5.21 ( http://nmap.org ) at 2011-03-22 22:46 KRAT
Nmap scan report for dlink (192.168.1.1)
Host is up (0.0063s latency).
Nmap scan report for book (192.168.1.102)
Host is up (0.000084s latency).
Nmap done: 256 IP addresses (2 hosts up) scanned in 2.45 seconds
yurik@book:~$

P.S. предвидя неимоверный шквал вопросов "как установить nmap?" отвечу: набрать sudo apt-get install nmap

[DonRodrigo]

nmap имеется)) но какбэ мне нужно нафигарить свой код , ибо задание таково; но я сделаю так тогда : -Sp 196.198.201.0/24 > text ;потом файлик обработаю и красивенько выведу результатик в консоль;кстати вместо 24 не 254  случайно надо??

[Yurror]

случайно не надо. это маска. читай wiki CIDR
ну если задание...
и не -Sp а -sP потом долго будешь удивляться полученым результатам

[DonRodrigo]

случайно не надо. это маска. читай wiki CIDR
ну если задание...
и не -Sp а -sP потом долго будешь удивляться полученым результатам

ок, смотри, а ты там использовал .1 , это тоже так надо или всё-таки .201 ?

[Yurror]

Ну вы, блин, даёте... (с)
DonRodrigo, в твоём случае 201, в моём - 1
Вики уже про IP адрес почитай. Пипец, как дитё малое.

[DonRodrigo]

Ну вы, блин, даёте... (с)
DonRodrigo, в твоём случае 201, в моём - 1
Вики уже про IP адрес почитай. Пипец, как дитё малое.

ок;ок ;спс