Net::Ping perl

3.2.2006 12:12 | Přečteno: 1126× | Linux

Tak som si povedal že si ešte viac uľahčím prácu. Rozhodol som sa preto napísať skript v perle na pripájanie diskov jednotlivých používateľov.

Všetko bolo v poriadku dokonca som sa potrápil aj s gui v Tk, ale keď sa mi už nechcelo čakať dlho na to aby si zistil ktorý počítač je zapnutý, tak som sa mu skúsil vnútiť menší čas na ping. Neúspešne.

Nasledovalo menenie protokolov tcp,udp,icmp ale nič nepomáhalo, hodnoty nad jednu sekundu bralo v poriadku, ale hodnoty pod jednu sekundu síce zbehli rýchlejšie, ale odpoveď bola nulová -> host nieje prístupný(nedá sa pingnúť). Aj keď problémy na sieti niesu a "pingy" sú pod 1ms. Samozrejme doma mi to šlo, kedže doma nemám tento ohromný OS (M$). Takže problém bude v module Net::Ping z balíka active perl pre win32. Aj som našiel včera, že tento modul nieje na 100% funkčný ale už som túto stránku nevedel dnes nájsť.

Máte takýto problém aj vy? Alebo je to len môj problém v tom že to poriadne neviem v perl napísať. Znova sa potvrdilo že všetko čo ja potrebujem doma funguje ale niekde inde nie, momentálne za to môže ten active perl.

       

Anketa

Komentáře

[prOm3TheuS]

Kdysi dávno jsem si udělal takový maličkatý skriptík pro zjišťování stavu online počítačů a tvoření grafu. Fungovalo to skvěle, ale pak se síť rozšiřovala a rozšiřovala, až to pak ukazovalo bludy.

[practice_what_you_preach]

Mam na tom zalozeny mensi monitoring zariadeni cca 300, na nie malej sieti tych 5000+PC. Bezi to na linuxu a vpohode...

[Karel Benák]

Pomocí modulů ze CPAN jsem si kdysi napsal pomerne zajimave skriptiky na pocitani packetu a generovani statistik aniz bych kdy cokoliv v Perlu napsal.