Ping monitor (Perl Script)

Merhaba,

Basit bir ping monitor nasıl yazılır, görelim.

Genelde tercihim perl script dilidir. Diğer dillerde de yazmak mümkündür.
Perl kütüphanelerini kullanabilir yada kendimiz de direkt olarak yazabiliriz.
Öncelikli olarak perl Net::Ping kütüphanesinin kullanımını görelim.

5 adet ip adresine ping attırıp sonucu almaya çalışalım.

Bu 5 ip adresi pinglenecek sonuç ekrana bastırılacak. Ayrıca C:\ipsonuclari.txt isimli dosyaya yazılacak.

Öncelikle 5 ip adresini bir dizide toplayacağız. Sonrasında bu dizi içinde bir for döngüsü ile dönüp her ip adresini pingleyeceğiz.

1. #!/usr/bin/perl
2. use strict;
3. use Net::Ping;
5. my $ip1 = "10.1.1.1";
6. my $ip2 = "10.1.1.2";
7. my $ip3 = "10.1.1.3";
8. my $ip4 = "10.1.1.4";
9. my $ip5 = "10.1.1.5";
10. my $ip_durum = "";
12. my @array = ($ip1,$ip2,$ip3,$ip4,$ip5);
13. foreach (@array) {
14.     my $ipadres = $_; 
15.     chomp($ipadres);
16.     print $_."\n"
17.     my $p = Net::Ping->new(icmp);
18.     if($p->ping($ipadres)) {
19.         print "BASARILI";
20.         $ip_durum = $ip_durum." ".$ipadres.":OK ";
21.     } else {
22.     print "BASARISIZ";
23.     $ip_durum = $ip_durum." ".$ipadres.":BASARISIZ ";
24.     }
25. }
27. print $ip_durum;
28. my $dosyasil = "C:\\ipsonuclari.txt";
29. unlink $dosyasil;
31. open(MYFILE, '>> C:\\ipsonuclari.txt');
32. print MYFILE $dosyasil
33. close (MYFILE);

Buradaki önemli noktalardan birisi new(icmp); fonksiyonunun çalışabilmesi için bu scriptin hem icmp paketleri göndermeye hem de gelen cevapları dinlemeye iznimizin olmasıdır.
Aksi takdirde ping atılamayan bazı ip ler ayakta gibi görünecektir.

Teşekkürler,
Cem Selmanoğulları