in reply to Parsing HTML/XML with Regular Expressions
Overly idiomatic but this was for fun, not production :P–
use XML::LibXML; my $doc = XML::LibXML->load_html( location => "example.html", { recover => 1 } ); my @ids2text = map { [ $_->value, $_->getOwnerElement->textContent ] } $doc->findnodes('//@id'); $_->[1] =~ s/\W+//g for @ids2text; print join ", ", map sprintf("%s=%s", @$_), @ids2text;
While this happens to be XHTML
Sidenote on that. I am sure you know the sample is not XHTML but I thought I'd call it out for the sake of readers.
Update: I missed the "transitional" part of the XHTML declaration. It is indeed, shockingly, valid transitional XHTML. Goes to show how on point haukex is on this matter.
Update 2: updated node title per LanX. Pulled strict/warnings to shorten post. Plus link to module: XML::LibXML
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Parsing HTML/XML with Regular Expressions (XML::LibXML; updated!)
by haukex (Archbishop) on Oct 16, 2017 at 15:12 UTC | |
by Discipulus (Canon) on Oct 17, 2017 at 07:38 UTC | |
by haukex (Archbishop) on Oct 17, 2017 at 11:24 UTC |