++ed by:

1 PAUSE user

Alexander Karelas
and 1 contributors


XML::MyXML - A simple-to-use XML module, for parsing and creating XML documents


version 0.9407


    use XML::MyXML qw(tidy_xml xml_to_object);
    use XML::MyXML qw(:all);

    my $xml = "<item><name>Table</name><price><usd>10.00</usd><eur>8.50</eur></price></item>";
    print tidy_xml($xml);

    my $obj = xml_to_object($xml);
    print "Price in Euros = " . $obj->path('price/eur')->text;

    $obj->simplify is hashref { item => { name => 'Table', price => { usd => '10.00', eur => '8.50' } } }
    $obj->simplify({ internal => 1 }) is hashref { name => 'Table', price => { usd => '10.00', eur => '8.50' } }


xml_escape, tidy_xml, xml_to_object, object_to_xml, simple_to_xml, xml_to_simple, check_xml


This module can parse XML comments, CDATA sections, XML entities (the standard five and numeric ones) and simple non-recursive <!ENTITY>s

It will ignore (won't parse) <!DOCTYPE...>, <?...?> and other <!...> special markup

All strings (XML documents, attribute names, values, etc) produced by this module or passed as parameters to its functions, are strings that contain characters, rather than bytes/octets. Unless you use the bytes function flag (see below), in which case the XML documents (and just the XML documents) will be byte/octet strings.

XML documents to be parsed may not contain the > character unencoded in attribute values


Some functions and methods in this module accept optional flags, listed under each function in the documentation. They are optional, default to zero unless stated otherwise, and can be used as follows: function_name( $param1, { flag1 => 1, flag2 => 1 } ). This is what each flag does:

strip : the function will strip initial and ending whitespace from all text values returned

file : the function will expect the path to a file containing an XML document to parse, instead of an XML string

complete : the function's XML output will include an XML declaration (<?xml ... ?>) in the beginning

internal : the function will only return the contents of an element in a hashref instead of the element itself (see "SYNOPSIS" for example)

tidy : the function will return tidy XML

indentstring : when producing tidy XML, this denotes the string with which child elements will be indented (Default is the 'tab' character)

save : the function (apart from doing what it's supposed to do) will also save its XML output in a file whose path is denoted by this flag

strip_ns : strip the namespaces (characters up to and including ':') from the tags

xslt : will add a <?xml-stylesheet?> link in the XML that's being output, of type 'text/xsl', pointing to the filename or URL denoted by this flag

arrayref : the function will create a simple arrayref instead of a simple hashref (which will preserve order and elements with duplicate tags)

bytes : the XML document string which is parsed and/or produced by this function, should contain bytes/octets rather than characters



Returns the same string, but with the <, >, &, " and ' characters replaced by their XML entities (e.g. &amp;).


Returns the XML string in a tidy format (with tabs & newlines)

Optional flags: file, complete, indentstring, save, bytes


Creates an 'XML::MyXML::Object' object from the raw XML provided

Optional flags: file, bytes


Creates an XML string from the 'XML::MyXML::Object' object provided

Optional flags: complete, tidy, indentstring, save, bytes


Produces a raw XML string from either an array reference, a hash reference or a mixed structure such as these examples:

    { thing => { name => 'John', location => { city => 'New York', country => 'U.S.A.' } } }
    [ thing => [ name => 'John', location => [ city => 'New York', country => 'U.S.A.' ] ] ]
    { thing => { name => 'John', location => [ city => 'New York', city => 'Boston', country => 'U.S.A.' ] } }

All the strings in $simple_array_ref need to contain characters, rather than bytes/octets. The bytes optional flag only affects the produced XML string.

Optional flags: complete, tidy, indentstring, save, xslt, bytes


Produces a very simple hash object from the raw XML string provided. An example hash object created thusly is this: { thing => { name => 'John', location => { city => 'New York', country => 'U.S.A.' } } }

Since the object created is a hashref, duplicate keys will be discarded. WARNING: This function only works on very simple XML strings, i.e. children of an element may not consist of both text and elements (child elements will be discarded in that case)

All strings contained in the output simple structure, will always contain characters rather than octets/bytes, regardless of the bytes optional flag.

Optional flags: internal, strip, file, strip_ns, arrayref, bytes


Returns true if the $raw_xml string is valid XML (valid enough to be used by this module), and false otherwise.

Optional flags: file, bytes



Returns the element specified by the path as an XML::MyXML::Object object. When there are more than one tags with the specified name in the last step of the path, it will return all of them as an array. In scalar context will only return the first one. Simple CSS3-style attribute selectors are allowed in the path next to the tagnames, for example: p[class=big] will only return <p> elements that contain an attribute called "class" with a value of "big". p[class] on the other hand will return p elements having a "class" attribute, but that attribute can have any value. It's possible to surround attribute values with quotes, like so: input[name="foo[]"]

An example... To print the last names of all the students from the following XML, do:

    my $xml = <<'EOB';
    my $obj = xml_to_object($xml);
    my @students = $obj->path('student');
    foreach my $student (@students) {
        print $student->path('name/last')->value, "\n";

...or like this...

    my @last = $obj->path('student/name/last');
    foreach my $last (@last) {
        print $last->value, "\n";

If you wish to describe the root element in the path as well, prepend it in the path with a slash like so:

    if( $student->path('/student/name/last')->value eq $student->path('name/last')->value ) {
        print "The two are identical", "\n";

Optional flags: none

$obj->text([set_value]), also known as $obj->value([set_value])

If provided a set_value, will delete all contents of $obj and will place set_value as its text contents. Otherwise will return the text contents of this object, and of its descendants, in a single string.

Optional flags: strip


Gets or sets the inner XML of the $obj node, depending on whether xml_string is provided.

Optional flags: bytes

$obj->attr('attrname' [, 'attrvalue'])

Gets/Sets the value of the 'attrname' attribute of the top element. Returns undef if attribute does not exist. If called without the 'attrname' paramter, returns a hash with all attribute => value pairs. If setting with an attrvalue of undef, then removes that attribute entirely.

Input parameters and output are all in character strings, rather than octets/bytes.

Optional flags: none


Returns the tag of the $obj element. E.g. if $obj represents an <rss:item> element, $obj->tag will return the string 'rss:item'. Returns undef if $obj doesn't represent a tag.

Optional flags: strip_ns


Returns the XML::MyXML::Object element that is the parent of $obj in the document. Returns undef if $obj doesn't have a parent.

Optional flags: none


Returns a very simple hashref, like the one returned with &XML::MyXML::xml_to_simple. Same restrictions and warnings apply.

Optional flags: internal, strip, strip_ns, arrayref


Returns the XML string of the object, just like calling object_to_xml( $obj )

Optional flags: complete, tidy, indentstring, save, bytes


Returns the XML string of the object in tidy form, just like calling tidy_xml( object_to_xml( $obj ) )

Optional flags: complete, indentstring, save, bytes


If you have a Github account, report your issues at https://github.com/akarelas/xml-myxml/issues. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.


Alexander Karelas <karjala@karjala.org>


This software is copyright (c) 2016 by Alexander Karelas.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.