Perl 使用列号和行号创建错误日志

我需要错误日志：我正在对xml文件进行标记验证和DTD验证

XML:

我有不正确的日志，我需要

Error.log：

---

purchase.xml:行号：列号：错误文本

您未能提供不正确日志的输出

用于捕获验证错误并将其解析为首选格式

use XML::LibXML;
use Try::Tiny;
my $parser = XML::LibXML->new;
$parser->validation(1);

try {
    $parser->parse_file("purchase.xml");
} catch {
    warn "XML parsing found errors: $_";
    parse_xml_error($_);
};

sub parse_xml_error {
    my $errors = shift;
    # ... left as en exercise for the reader
}

---

k sir如何获取Try：：微小模块，在PPM和Theoryx5中找不到，我从哪里获取此模块sir和

    use XML::LibXML;
my $parser = XML::LibXML->new;
$parser->validation(1);
$parser->parse_file("purchase.xml");

use XML::LibXML;
use Try::Tiny;
my $parser = XML::LibXML->new;
$parser->validation(1);

try {
    $parser->parse_file("purchase.xml");
} catch {
    warn "XML parsing found errors: $_";
    parse_xml_error($_);
};

sub parse_xml_error {
    my $errors = shift;
    # ... left as en exercise for the reader
}