XML to XPath: Get xpath from xml

[AjayPerl]

Is there a way in PERL to parse an XML file and creates XPath expressions for each element encountered.

My goal is to achieve following from this ex xml file :

<root>
    <elemA>one</elemA>
    <elemA attribute1='first' attribute2='second'>two</elemA>
    <elemB>three</elemB>
    <elemC>
        <elemB>five</elemB>
    </elemC>
</root>

to produce the following output :

//root[1]/elemA[1]='one'
//root[1]/elemA[2]='two'
//root[1]/elemA[2][@attribute1='first']
//root[1]/elemA[2][@attribute2='second']
//root[1]/elemB[1]='three'
//root[1]/elemC[1]/elemB[1]='five'

[space_monk]

Use XML::Twig and the get_xpath method looks a possible method of achieving what you're looking to do.

[Anonymous Monk]

XML::XPath - node-to-xpath reverse lookup

[AjayPerl]

Thanks..let me try this out

[nysus]

A big thanks from 6 years into the future for asking this question. Been hunting all over for a solution to this.