perl脚本(加入crontab)跟踪DNS总延时情况

gaochong

crontab中根据需要加入perl脚本，跟踪DNS延时情况，做报表用的。
得到的log文件，可以再用于画图等。

请各位指正！谢谢!

perl脚本如下：

#!/usr/bin/perl -w use strict; use POSIX qw/strftime/; local $"="\t"; my $dig="/usr/sbin/dig"; my $ns="ip_ns"; my $log="/dig.log"; my $date=strftime ("%Y%m%d",localtime); my @list; my @domains=qw/         www.google.com         www.sina.com.cn /; foreach my $domain(@domains) {         push @list,&dig_time($domain); } open FILE,">> $log"  or         die "$!"; print FILE "$date\t@list\n"; close FILE; sub dig_time {         my $time;         my ($dom)=@_;         open (DIG,"$dig $dom \@$ns +trace|") or                 die "Unable to dig:$!\n";         while (<DIG>) {                 if (/in\s(\d+)\sms$/) {                         $time+=$1;                 }         }         return $time; }

[ 本帖最后由 gaochong 于 2009-6-23 22:50 编辑 ]

gaochong

原帖由 check1234 于 2009-6-24 09:38 发表
然后定时发送到管理员手上。

这到好，不用到机器上去拉了。

这部分代码能不能贴上来参考下？

gaochong

以上代码有点儿问题，一来没有close DIG,二来没有检查 $? 的值。

修改后的代码如下：

#!/usr/bin/perl -w use strict; use POSIX qw/strftime/; local $"="\t"; my $dig="/usr/sbin/dig"; my $ns="ip_ns"; my $log="/dig.log"; my $date=strftime ("%Y%m%d",localtime); my @list; my @domains=qw/         www.google.com         www.sina.com.cn /; foreach my $domain(@domains) {         push @list,&dig_time($domain); } open FILE,">> $log"  or         die "$!"; print FILE "$date\t@list\n"; close FILE; sub dig_time {         my $time;         my ($dom)=@_;         open (DIG,"$dig $dom \@$ns +trace|") or                 die "Unable to dig:$!\n";         while (<DIG>;) {                 if (/in\s(\d+)\sms$/) {                         $time+=$1;                 }         }        close DIG;     #修正         return $? ? "NULL" : $time;

[ 本帖最后由 gaochong 于 2009-6-24 13:08 编辑 ]

gaochong

疑问，是否有必要close DIG呢？