Perl: анализ файла SVG

Question

Я хочу проанализировать SVG-файл в Perl, но вижу совет НЕ использовать определенные библиотеки (XML :: Simple, XML :: XPath) по разным причинам.Поток ниже предлагает XML :: LibXML :: XPathContext;

Perl XML / SVG Parser не может найти узлы

Предполагая, что я использую XML :: LibXML :: XPathContext, яЯ до сих пор не уверен, как извлечь интересующие меня узлы: 1) Те, у которых "id" содержит "Drawing ...", их размер (path fill ... d = ".. etc) и текст("tspan") 2) Узлы "пути" (внизу SVG), которые НЕ являются частью какого-либо узла "Drawing_" и их местоположение (d = "...)

use XML::LibXML;
use XML::LibXML::XPathContext;

my $doc = XML::LibXML->load_xml( location => $file);
my $xpc = XML::LibXML::XPathContext->new( $doc);
$xpc->registerNs(x => 'http://www.w3.org/2000/svg');

foreach my $drawing ($xpc->findnodes( ??? ) {
    print "Found drawing\n";
}

foreach my $path ($xpc->findnodes( ??? ) {
    print "Found path\n";
}

Мой SVG:

<?xml version="1.0" encoding="UTF-8"?>
<svg version="1.2">
 <g visibility="visible" id="Master" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve">
  <rect fill="none" stroke="none" x="0" y="0" width="86360" height="55880"/>
 </g>
 <g visibility="visible" id="Page1">
  <g id="Drawing_1">
   <path fill="rgb(255,211,32)" stroke="none" d="M 15350,3285 L 31988,3285 31988,4937 15350,4937 15350,3285 15350,3285 Z"/>
   <path fill="none" stroke="rgb(128,128,128)" stroke-width="102" stroke-linejoin="round" d="M 15350,3285 L 31988,3285 31988,4937 15350,4937 15350,3285 15350,3285 Z"/>
   <g fill="rgb(0,0,0)" stroke="none" font-family="Arial Narrow embedded" font-size="635" font-style="normal" font-weight="700">
    <text x="19327" y="3967">
     <tspan x="19327 19471 19788 19962">Info</tspan></text>
    <text fill="rgb(0,0,0)" stroke="none" x="17558" y="4699">
     <tspan x="17558">I</tspan></text>
   </g>
  </g>
  <g id="Drawing_2">
   <path fill="rgb(207,231,245)" stroke="none" d="M 8747,10525 L 4810,10525 4810,8239 12684,8239 12684,10525 8747,10525 Z"/>
   <path fill="none" stroke="rgb(128,128,128)" stroke-width="102" stroke-linejoin="round" d="M 8747,10525 L 4810,10525 4810,8239 12684,8239 12684,10525 8747,10525 Z"/>
   <g fill="rgb(0,0,0)" stroke="none" font-family="Arial Narrow embedded" font-size="635" font-style="normal" font-weight="700">
    <text x="5547" y="8872">
     <tspan x="5547 6030">OK</tspan></text>
    <text fill="rgb(0,0,0)" stroke="none" x="5215" y="9604">
     <tspan x="5215 5359 5676 5850">Info</tspan></text>
   </g>
  </g>
  ...
  <g>
   <path fill="none" stroke="rgb(51,153,255)" id="Drawing_78_0" stroke-width="102" stroke-linejoin="round" d="M 47291,16367 C 47291,17129 48093,16793 48482,17017"/>
   <path fill="rgb(51,153,255)" stroke="none" id="Drawing_78_1" d="M 48688,17383 L 48598,16917 48337,17064 48688,17383 Z"/>
  </g>
  <g>
   <path fill="none" stroke="rgb(51,153,255)" id="Drawing_79_0" stroke-width="102" stroke-linejoin="round" d="M 39417,4937 C 39417,14271 23887,8230 23425,16977"/>
   <path fill="rgb(51,153,255)" stroke="none" id="Drawing_79_1" d="M 23415,17383 L 23577,16937 23277,16929 23415,17383 Z"/>
  </g>
  ...
 </g>
</svg>

Answer 1

Прежде всего, вам не нужно использовать XML::LibXML::XPathContext, потому что ваш XML не использует пространства имен.

Однако вам придется пройтись по всем атрибутам узла и проверить их. Один из способов - пройти по всем атрибутам узла, и как только вы найдете нужные вам узлы, сделайте что-нибудьс ними (например, с помощью извлечения значений атрибутов, получения дочерних узлов и т. д.) с помощью методов XML::LibXML::Node

use v5.10;
use strict;
use warnings;

use XML::LibXML;

my $doc = XML::LibXML->load_xml( location => $ARGV[0] );

NODES: for my $node ($doc->findnodes('//g')) {
    for my $attr ($node->attributes) {
        if ($attr->nodeName eq 'id' && $attr->value =~ /^Drawing/) {
            # it's a drawing node
            # do stuff
            next NODES;
        }
    }
    # it's not a drawing node
    for my $pathnode ($node->findnodes('path')) {
        # do stuff
    }
}

Вы также можете использовать чистый XPath для поиска узлов.

my @drawings = $doc->findnodes('//g[starts-with(@id,"Drawing")]');
my @paths = $doc->findnodes('//path[not(ancestor::g[starts-with(@id,"Drawing")])]');

Кредит на эти сообщения для ссылки на XPath:

XPath Выберите узлы, где все родительские узлы не содержат определенного атрибута и значения
XPath: использованиерегулярное выражение содержит функцию