XML::Clean - Ensure, that (HTML) text pass throught an XML parser.
use XML::XMLClean; print XML::XMLClean::clean ("<foo bar>barfoo"); # <foo bar>barfoo</foo> print XML::XMLClean::clean ("<foo bar>barfoo",1.5); >> # <?xml version="1.5" encoding="ISO-8859-1"?><foo bar>barfoo</foo> print XML::XMLClean::clean ("bar <foo bar> bar",1.6,"XML_ROOT","ISO-8859-2"); # <?xml version="1.6" encoding="ISO-8859-2"?><XML_ROOT>bar <foo bar> bar </foo></XML_ROOT>"
The ultimate quest of this module is to produce from non-XML text text, that will will most probably pass throught any XML parser one could find.
Basic cleaning is just XML tag matching (for every opening tag there will be closing tag as well, and they will form a tree structure).
When you add some extra parameters, you will receive complete XML text, including XML head and root element (if none were defined in text, then some will be added).
- XML::Clean::clean($text, [$version, [%options] ])
Return (almost) XML text, made from input parameter
$versionis false, only match tags, and escapes any unmatched tags.
When you pass
$versionparameter, than text is checked for standard XML head (<!XML VERSION=..>), and depending on options (force_root), some is added / existing is modified. Also depending on options, text is checked for root element. VERSION XML head parameter in output text is set to parameter value you pass.
encoding - String to be added as XML encoding attribute in XML header. Defaults to ISO-8859-1.
force_root - If true, output text will have XML root. Defaults to false.
root - Output text will have that text as root element. Defaults to xml_root.
- clean_file $filename [$version [%options] ]
Open file called
$filename, reads all text from it, pass it to clean with
%options, write output text to file called
Die on I/O error.
This module is still under development. Not all XML errors are corrected with it.
Its otherwise too ineficient and slow:).