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ı