ping test Perl: 진주 No
2008.09.07 00:06 Edit
: 간단한 ping 테스트 스크립트
서버 상태를 체크하다가 ping에 대한 echo가 나타나면 소리를 울린다.
참고 : \a => 벨소리
[code]#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $p = Net::Ping->new("icmp");
my $host = "mail.inforang.com";
while (1) { # 무한루프
print "$host is alive.\n\a" if ($p->ping($host));
sleep 1;
}
$p->close();[/code]
이 글은 스프링노트에서 작성되었습니다.
토트에서 다시 이어갑니다. ^^ 