Perl XMLIn Parser Error - 数据问题过早结束

Question

我是 Perl 和 XML 的新手，所以请耐心等待。

我的 XMLIn 随机出现问题，不喜欢返回的 XML 文件，即使我打开两个不同的 XML 返回文件它们是相同的。

我想出了这个解决方案：

#Send HTTP Request
my $browser = LWP::UserAgent->new();   
my $req = HTTP::Request->new(POST => $endpointurl);
$req->content("@XML");

#Get HTTP Response Status
my $resp = $browser->request($req);

#Get Response Status
my $parser = XML::LibXML::Simple->new();
my $xmlResp = ();
$xmlResp = eval { $parser->XMLin($resp->content()) };
unless ($xmlResp)
{
    $xmlResp = eval { $parser->XMLin($resp->content()) };
}

但我不确定这是否是“好习惯”，或者如果失败，让它循环返回的更好方法是什么。

这似乎可行，但我知道这并不“正确”。

***这部分代码是UPS提供的，不是我写的，也不是100%看懂。

Answer 1

$resp->content 如果请求不成功，则包含错误消息，这是无效的 XML。如果是永久性错误，程序应该停止，如果是暂时性错误，则重试，并仅在成功时解析内容。

use LWP::UserAgent::Determined qw();
my $browser = LWP::UserAgent::Determined->new;
...
my $resp = $browser->request($req);
if ($resp->is_success) {
    my $parser = ... etc. etc.
} else {
    die sprintf "could not POST to <%s>:\nStatus %s\n%s\n"
        $endpointurl, $resp->status_line, $resp->content;
}