Perl+Ping=?

LENOK55

Господа, не подскажите - где можно посмотреть как написать скриптик (нпример на перле, пингующий хосты и выдающий информацию в файл).
Задача такая. Есть сеть. Нужно пропинговать все адреса вида 10.0.X.Y и сказать, существуют ли свободные Y для любого X.
Но это так. Главное - ткнуть меня носом в простейший скриптик, использующий ping, и берущий информацию из консоли\потока. Далее надеюсь сам разберусь.
Да, это нужно под Win.

Elina74

Вот тебе пример скрипта, который определяет, какие компы включены:

#!c:\perl\bin\perl -w

@Nets = (

    "10.0.0",        #V

    "10.0.1",        #V

    "10.0.2",        #V

    "172.16.12",     #MSU

    "172.16.13",     #MSU

    "172.16.14",     #MSU

    "172.16.16",     #MSU

    "172.16.17",     #MSU

    "172.16.18",     #MSU

    "172.16.32",     #HACKERS

    "172.16.33",     #HACKERS

    "172.16.34",     #HACKERS

    "172.16.36",     #HACKERS

    "172.16.37",     #HACKERS

    "172.16.38",     #HACKERS

    "10.3.0",        #GZ_V

    "10.3.1"         #GZ_V

);

open (OUT, ">ping2.txt");

foreach $Net(@Nets){

    for($i=0; $i<256; $i++){

        @a = `ping -n 1 -w 20 $Net.$i`;

        foreach $str(@a){

            if($str =~ "потеряно = 0"){

                print OUT "$Net.$i", "\n"; 

            }

        }

    }

}  

forenius

Как вариант:
В Nagios (система мониторинга под *nix) в качестве плагинов куча скриптов на Перл, php входит.
Там это точно есть.

kamputer

use Net::Ping;

LENOK55

Супер, большое спасибо. Уже переделал.