eval防止程序崩溃

最新推荐文章于 2024-06-26 15:56:52 发布

scan724

最新推荐文章于 2024-06-26 15:56:52 发布

阅读量527

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/47428403

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何在Perl脚本中使用eval来防止因Redis连接错误导致的程序崩溃。通过包裹可能出错的代码块，可以捕获异常并进行后续处理，例如发送邮件通知。

摘要由CSDN通过智能技术生成

[root@redis01 sbin]# cat test.pl 
use Redis;  
use Sys::Hostname;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
use Net::SMTP;
sub basic() {
     $host = hostname;
     @lines=qx|/sbin/ifconfig|;
     @ip;
    print "-" x 80 ."\n";
    foreach(@lines){
        if(/inet addr:([\d.]+)/){
            push @ip,$1 unless $1 =~ /\A127.0.0.1\z/;
        }
    }
    print "${yellow}HOST: $host => IP: @ip$normal\n";
    print "-" x 80 ."\n";
};
&basic();
sub send_mail{
if (@_ != 2){print "error\n"};
    ($m,$n) = @_; 
    my $to_address  = $m;
my $CurrTime = time2iso(time());
    my $to_address  = $m;
 my $mail_user   = '

了解本专栏