如果per写一段程序l监控网络设备是否正常

[realdrxiaohang]

公司内有一台AP老当机，现在想用Perl写段程序监控，PING该台设备的IP，如果不通自动发邮件出来，请高手帮忙！！

[realdrxiaohang]

如何用Perl写一段程序监控网络设备是否在工作？

[iambic]

不用发这么多贴子吧。

use Net::Ping;

$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();

[iambic]

邮件我没试过，我没有邮件服务器。

下面是Perl Cookbook中的例子：

use Mail::Mailer;

$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From => $from_address,
To => $to_address,
Subject => $subject,
})
or die "Can't open: $!\n";
print $mailer $body;
$mailer->close( );


你可以仔细阅读下《Perl Cookbook》中的Recipe 18.3 Sending Mail，或者查阅CPAN。