Question

好吧，为了让它运行起来，已经花了很长时间在这个脚本上倾倒，现在我遇到的唯一问题是偶尔的GET和POST错误会导致它重新启动脚本，这非常烦人。

sub Fight {
my($cpm);
$parsed = 0; while ($parsed == 0) {sleep(3);
$mech->get("http://www.lordsoflords.com/m3/fight_control.php");
$a = $mech->content();if ($a =~ m/Skeleton/) {$parsed = 1;}}
$mech->form_number(2);
$mech->field("Difficulty", $level);
$mech->click();
$cpm = $mech->content();
$cpm =~ m/(\<option\>208.*Duke)/;
$cpm = $1;
$cpm =~ s/ - Shadowlord Duke//g;
$cpm =~ s/\>209/\>/;
$cpm =~ s/<.*?>//g;
if($debug == 1) {
    print $cpm . "\n";
}
$mech->form_number(1);
$mech->select("Monster", $cpm);
$mech->click();
$a = $mech->content();
$a =~ m/(You win.*exp )/;
$a =~ m/(battle)/;
$a =~ m/(You have been jailed for violating our rules)/;
print $1 . "\n";
my $antal = 500 + int rand (500);
my $antal = 5000;
my $jail;

# REPEAT:
while($antal > 0) {
    sleep($loopwait); #default = 0.3
    $antal = $antal -1;
    $mech->reload();
    $a = $mech->content();
    $b = $a;
    $c = $a;

我收到错误的一行是重复部分中的$ mech-＆gt; reload（）命令，它返回如下错误：“错误发布http://www.lordsoflords.com/m3/fight.php：booyaka的错误请求.pl第299行“。

有时也会返回此错误“错误获取http://www.lordsoflords.com/m3/steal.php：无法连接到www.oyords.lows.com:80（错误的主机名）booyaka.pl第97行。”

附加的功能如下：

sub Stealwait {
    $stealwait = 3600;
    $stealtime = time;
    $stealtime = $stealtime + $stealwait; # if stealer can't be found, click for 1k seconds
    print time . "|" . $stealtime . "\n";
    print "stealtime: " . $stealtime . "\n";
    $parsed = 0; $stealcount = 0;
    while ($parsed == 0) {sleep(3);
    print $stealcount . "\n";
    $mech->get("http://www.lordsoflords.com/m3/steal.php");
    $a = $mech->content();
    if ($a =~ m/Parsed/) {$parsed = 1; $stealwait = 0;}
    $stealcount = $stealcount+1; if ($stealcount == 5) {
    }
if ($a =~ m/recover/)
{
    $a = $mech->content();
    $a =~ m/(Take.*This)/s;
    $b = $1;
    $b =~ s/<.*?>//sg;
    $b =~ m/(Take.*seconds)/s;
    $b = $1;
     print $b . "\n";
    $b =~ m/(for.*seconds)/s;
    $b = $1;
    $b =~ s/for//sg;
    $b =~ s/seconds//sg;
    $b =~ s/<.*?>//sg;
    $b =~ s/,//g;
            $b = 2*$b;
            $stealwait = $b;
            print "In recover, gotta wait " . $stealwait . " seconds before I can steal...\n";
            $stealtime = time;
            $stealtime = $stealtime + $stealwait;
    }


    sub Steal {
$parsed = 0; while ($parsed == 0) {sleep(3);
$mech->get("http://www.lordsoflords.com/m3/steal.php");
$a = $mech->content();if ($a =~ m/Parsed/) {$parsed = 1;}}
    $a = $mech->content();
    if ($a =~ m/Freeplay/) { # steal only if we have freeplay
            $a = "\<option\>" . "$stealchar" . ".*?\<\/option\>";
            $tmp = $mech->content();
            #print $tmp;
            if($tmp =~ m/($a)/) {print "Stealer found\n";} else {print "Stealer not found! - not stealing!\n"; return();}
            $tmp =~ m/($a)/s;
            $tmp = $1;
            $tmp =~ s/<.*?>//sg;
            print "Stealing from: " . $tmp;
            $mech->form_name(0);
            $mech->select("Opp", $tmp);
            $mech->click_button('value' => 'Steal Stats or Items');
            $a = $mech->content();
            $a =~ m/(sleepers.*This)/s;
            $b = $1;
            $b =~ s/<.*?>//sg;
            $b =~ s/sleepers//sg;
            $b =~ s/This//sg;
            print $b;
    } else {$stealtime = time; $stealtime = $stealtime + 2000; print "Freeplay not detected, stealing cancelled...\n";}
}

在脚本编写方面，我不是专家，如果我可以解决这个问题或者覆盖Mechanize超时，我将非常感激。

Answer 1

使用Try::Tiny或其他内容捕获异常，等待一下（使用exponential back-off），然后重新发送请求。通常的互联网礼貌是硬编码重试的上限，所以你最终不会锤击服务器。

机械化POSTing错误

1 个答案: