Perl 没有继续

Question

注意：这是一个测试 perl 代码，用于检查是否有效。

我的 perl 脚本有问题，我知道可以通过添加解决方案

print "Your server is not ok, please check!\n";
die "- Server is not ok!\n";

但是在我的项目中，在die "- Server is not ok!\n"; 停止后继续脚本，我使用 print 来显示是否有效。

代码如下

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new( timeout => 1 );
$ua->agent("007");

my $req = HTTP::Request->new( GET => 'http://www.google.com.ph/' );

my $res;
for ( 1 .. 10 ) {
    $res = $ua->request($req);
    if ( $res->is_success ) {
        print "+ Server is ok!\n";
    }
    else {
        die "- Server is not ok!\n"; # I want to stop if server is not ok and print last code. Or other solution to stop instead of using die.
    }
    sleep 1;
}
print "Your server is not ok, please check!\n"; # Why this print not showing if stop in "- Server is not ok!\n"?

看图...

停止的其他解决方案？ Intead 使用die 继续执行 perl 脚本。

希望有人能解决这个小问题，谢谢大家的回复！

Answer 1

for ( 1 .. 10 ) {
    $res = $ua->request($req);
    if ( $res->is_success ) {
        print "+ Server is ok!\n";
    }
    else {
       print "- Server is not ok!\n"; 
       last; #this statement causes to exit the loop
    }
    sleep 1;
}

# at this point everything is oke
print "Your server is ok!\n";