perl - 如何让 Apache “休眠”几秒钟

Question

我希望我的服务器停止几秒钟然后重新启动。我正在尝试使用sleep(5). 这会有帮助吗？

我尝试了一个Perl脚本，其中包含：

if($mech=~ m/(Connection refused)/) {print "SLEEPING\n";sleep(5);redo;}

Answer 1

服务器托管网页。客户端连接到服务器。使用 WWW::Mechanize 的 Perl 脚本是客户端。

我怀疑您正在尝试执行以下操作：

my $retries = 3;
my $resp; # response goes here
while ( $retries-- > 0 ) {
    $resp = $ua->get( "http://www.google.com/" );
    if ( ! $resp->is_success ) {
        warn( "Failed to get webpage: " . $resp->status_line );
        sleep( 5 );
        next; # continue the while loop
    }

    last; # success!
}

if ( $retries == 0 ) {
    die( "Too many retries!" );
}

# old versions of LWP::UserAgent didn't have decoded_content()
my $content = $resp->can('decoded_content') ? 
    $resp->decoded_content : $resp->content;

print( $content );

更新

这是您在评论中提供的代码：

use WWW::Mechanize;
my $mech = new WWW::Mechanize;
eval {
    $mech->get($url);
}; 
if($@) { 
    print STDERR "Burst\n";
    print STDERR Dumper($mech);
    # my $var=$mech;
    # print STDERR "var $var\n";
    # if($mech=~ m/(Connection refused)/) 
    # {
    #     print "SLEEPING\n";
    #     sleep(5);
    #     redo;
    # }

来自perdoc -f redo：

“重做”命令重新启动循环块，而不再次评估条件。如果有的话，“继续”块不会被执行。如果省略 LABEL，则该命令引用最内层的封闭循环。

看到您没有将代码放入循环中，因此调用redo没有任何效果。