NAME

XML::Clean - Ensure, that (HTML) text pass throught an XML parser.

SYNOPSIS

        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>" 

DESCRIPTION

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).

FUNCTIONS AND METHODS

XML::Clean::clean($text, [$version, [%options] ])

Return (almost) XML text, made from input parameter $text.

When $version is false, only match tags, and escapes any unmatched tags.

When you pass $version parameter, 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.

Options are:

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 $version and %options, write output text to file called $filename.

Die on I/O error.

BUGS

This module is still under development. Not all XML errors are corrected with it.

Its otherwise too ineficient and slow:).

AUTHOR

peta@kubanek.net. Send there any complains, comments and so on.

DISTRIBUTION

http://www.kubanek.net/xmlclean

cpanm XML::XMLClean

perl -MCPAN -e shell
install XML::XMLClean