ansaurus

Question

How can I add entity declarations via XML::Twig programmatically?

Answer 1

A:

There maybe a better way but below did work for me:

my $filter = sub {
    my $text  = shift;
    my $ascii = "\x{a0}";    # non breaking space
    my $nbsp  = '&nbsp;';
    $text =~ s/$ascii/$nbsp/;
    return $text;
};

XML::Twig->new( output_filter => $filter )
         ->parse_html( $xml )
         ->print;

/I3az/

draegtun 2010-10-22 19:06:05

I'm a little hesitant to do regexp parsing on XML if there's a programmatic approach. I'll keep this in reserve if I can't find a way that's more "correct" to accomplish it (thanks).

Sir Robert 2010-10-22 19:50:46

Answer 2

+1 A:

use strict;
use XML::Twig;

my $doctype = '<?xml version="1.0" encoding="utf-8"?><!DOCTYPE html [<!ENTITY nbsp "&#160;">]>';
my $xml = '<html><head><meta content="tidyp for Linux (v1.02), see www.w3.org" name="generator" /><title></title></head><body>foo &nbsp; bar</body></html>';

my $xTwig = XML::Twig->new();

$xTwig->safe_parse($doctype . $xml) or die "Failure to parse XML : $@";

print $xTwig->sprint();

bob.faist 2010-10-22 19:24:17

This is pretty close to what I'd (ideally) like. It does still rely on text manipulation (in my code) rather than utilizing the XML::Twig API with literal data, but I could simply use this to declare a standard DTD for my incoming data. Upvoted for utility and it may be the accepted answer (after I fiddle with it)

Sir Robert 2010-10-22 19:53:18

I finally accepted this as the best answer. I ended up doing something slightly different, but still text manipulation. This is probably the best general solution.

Sir Robert 2010-10-26 16:08:06

Answer 3

+2 A:

A dirty, but efficient, trick in a case like this would be to add a fake DTD declaration.

Then XML::Parser, which does the parsing, will assume that the entity is defined in the DTD and won't barf on it.

To get rid of the fake DTD declaration, you can output the root of the twig. If you need a different declaration, create it and replace the current one:

#!/usr/bin/perl 

use strict;
use warnings;

use XML::Twig;

my $fake_dtd= '<!DOCTYPE head SYSTEM "foo"[]>'; # foo may not even exist

my $xml='<html>
  <head>
    <meta content="tidyp for Linux (v1.02), see www.w3.org" name="generator" />
    <title></title>
  </head>
  <body>foo &nbsp; bar</body>
</html>';

XML::Twig->new->parse( $fake_dtd . $xml)->root->print;

mirod 2010-10-27 13:23:39

@mirod: Hmm.. thanks. That's actually quite helpful!

Sir Robert 2010-10-28 12:57:52

ansaurus

tags:

views:

answers:

How can I add entity declarations via XML::Twig programmatically?

related questions