otter 1.2.1

Otter game system; main data structures Rust crate.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl -w
use strict;

use strict;

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

use Data::Dumper;

my $dom = XML::LibXML->load_xml(IO => \*STDIN) or die;

my $nodes = $dom->findnodes('//*[@inkscape:label]');
foreach my $node (@$nodes) {
  my $l = $node->getAttribute('inkscape:label');
  next unless $l =~ m/^time|^text/;
  my $parent = $node->parentNode;
  $parent->removeChild($node);
}

print $dom->toString or die $!;

print "<!-- made by dice/extract-image-only -->\n" or die $!;