Форум русскоязычного сообщества Ubuntu


Хотите сделать посильный вклад в развитие Ubuntu и русскоязычного сообщества?
Помогите нам с документацией!

Автор Тема: [решено]Помогите со скриптом на Perl)  (Прочитано 582 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн DonRodrigo

  • Автор темы
  • Новичок
  • *
  • Сообщений: 31
    • Просмотр профиля
Прошу извинить , если сильно надоел) Все никак не могу дописать:)

вот код:
#!/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 :)
« Последнее редактирование: 23 Март 2011, 09:15:25 от DonRodrigo »

Оффлайн Мангуст

  • Любитель
  • *
  • Сообщений: 98
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #1 : 22 Март 2011, 07:46:49 »
for my $ip (2..254) {
 $host = "128.0.0." . $ip;
  ...
}

Если больше - второй цикл, и т. д. А еще можно поизучать fping.
« Последнее редактирование: 22 Март 2011, 16:23:15 от Мангуст »

Оффлайн DonRodrigo

  • Автор темы
  • Новичок
  • *
  • Сообщений: 31
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #2 : 22 Март 2011, 16:30:00 »
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.
« Последнее редактирование: 22 Март 2011, 17:21:38 от DonRodrigo »

Оффлайн Yurror

  • Старожил
  • *
  • Сообщений: 1966
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #3 : 22 Март 2011, 18:50:37 »
Дорогие велосипедостроители, используйте 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

  • Автор темы
  • Новичок
  • *
  • Сообщений: 31
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #4 : 22 Март 2011, 19:52:14 »
nmap имеется)) но какбэ мне нужно нафигарить свой код , ибо задание таково; но я сделаю так тогда : -Sp 196.198.201.0/24 > text ;потом файлик обработаю и красивенько выведу результатик в консоль;кстати вместо 24 не 254  случайно надо??
« Последнее редактирование: 22 Март 2011, 20:01:21 от DonRodrigo »

Оффлайн Yurror

  • Старожил
  • *
  • Сообщений: 1966
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #5 : 22 Март 2011, 20:21:15 »
случайно не надо. это маска. читай wiki CIDR
ну если задание...
и не -Sp а -sP потом долго будешь удивляться полученым результатам

Оффлайн DonRodrigo

  • Автор темы
  • Новичок
  • *
  • Сообщений: 31
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #6 : 22 Март 2011, 22:16:52 »
случайно не надо. это маска. читай wiki CIDR
ну если задание...
и не -Sp а -sP потом долго будешь удивляться полученым результатам
ок, смотри, а ты там использовал .1 , это тоже так надо или всё-таки .201 ?

Оффлайн Yurror

  • Старожил
  • *
  • Сообщений: 1966
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #7 : 23 Март 2011, 06:29:56 »
Ну вы, блин, даёте... (с)
DonRodrigo, в твоём случае 201, в моём - 1
Вики уже про IP адрес почитай. Пипец, как дитё малое.

Оффлайн DonRodrigo

  • Автор темы
  • Новичок
  • *
  • Сообщений: 31
    • Просмотр профиля
Re: Помогите со скриптом на Perl)
« Ответ #8 : 23 Март 2011, 09:12:00 »
Ну вы, блин, даёте... (с)
DonRodrigo, в твоём случае 201, в моём - 1
Вики уже про IP адрес почитай. Пипец, как дитё малое.
ок;ок ;спс

 

Страница сгенерирована за 0.267 секунд. Запросов: 24.