Re: Perl - Modify the nested XML tags

[choroba]

There is how I would do it using XML::XSH2, a wrapper around XML::LibXML:

open 1.xml ;

rename Feed        response ;               cd Feed ;
rename Products    result ;                 cd Products ;
rename Product     doc ;                    cd Product ;
rename Description str[@name="body"] ;
rename ExternalId  int[@name="is_park_id"] ;
rename ImageUrl    str[@name="ss_image_thumb_small"] ;
rename Name        str[@name="title"] ;

insert text "PF" prepend ExternalId ;

delete //*/@* ;

save :b ;