Script yazarak ping atmak

Merhaba,

Daha önceki yazmızda Perl kütüphanelerinden yararlanarak bir PING MONITOR yazmıştık.

Şimdi ise hiçbir kütüphane kullanmadan direkt olarak bir script ile ping atmayı deneyelim.

Ping atalım. Sonucu bir text dosyasına alalım. Text dosyasındaki sonucu inceleyelim.

1. #!/usr/bin/perl
2. use strict;
3. use Net::Ping;
5. my $ipdurum = "UP";
6. my $file = "C:\\pinggecici.txt";
7. unlink $file;
9. system("ping 10.1.1.10 >> C:\\pinggecici.txt");
11. open (MYFILE, 'C:\\pinggecici.txt')
12. while (<MYFILE>) {
13.     chomp;
14.     $line = $_;
15.     if($line =~ m/100% loss/)
16.     {
17.         $pingdurum = "DOWN";
18.         $ipdurum = "DOWN";
19.      } else {
20.          pingdurum = "UP";
21.      }
22. }

Teşekkürler,
Cem Selmanoğulları

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ı