我想读取一个xml文件,但在<

时间:2019-07-18 13:17:37

标签: xml file perl

删除-以便将其读取为xml

解决方案:

public func countFor<T: Identifiable>(type: T, identifier: String) -> Int {
    let p = self.compactMap { $0 as? T }.filter { $0.identifier == identifier }
    return self.count(for: p)
}

以下文件是根据网站输出创建的

finesse.txt

# read XML file
my $filename = 'Finesse.txt';
open $FILE, '<', $filename or die "Can't open file $!";
my $document = do { local $/; <$FILE> };
$document =~ s/^[\- ] //mg; 

my $dom = XML::LibXML->load_xml(string => $document);

say "Users in READY mode:";
say " ";
$teller = 0;

foreach my $title ($dom->findnodes('Team/users/User')) {
$status = $title->findvalue('./state');
if ($status eq "READY") {
    say 'Naam  : ', $title->findvalue('./firstName');
    $teller++;
    }
}
say "Total = ", $teller;

感谢您提供解决方案的提示。

1 个答案:

答案 0 :(得分:1)

这不是有效的XML文件。您需要修复它。幸运的是,这很容易做到。

$xml =~ s/^[\- ] //mg;

顺便说一句,您正在使用一个模块,其自身的文档建议不要使用它。尽管XML :: Simple的名称为the most complicated XML parser to use。请使用XML :: LibXML之类的其他内容。