Re: Help with accessing an unknown set of data generated by XML::Simple

What I'm usually doing is sticking to XML::LibXML and all of its bundled libraries, so I keep less external dependencies.

This is unless the document is so large, that I need a SAX parser, in which case I use XML::SAX (using XS), which has proven to be very fast.

One of the techniques I ended up using for my internal projects, was modeling an XPath-based Parser, that allowed me to take advantage of XML::LibXML::XPathContext to set up a base hash that could be populated with XPath expressions.

The XPath expressions would then be evaluated with the xml document, and their values returned in a hash with its values.

The advantage of this mode, is that you can keep all of your parsing in one place, and also, limit the parser to return just what you need, instead of the whole document.

In addition, the XPath expressions can be pre-compiled, so that if you need to process several documents, you would gain some speed.


Francisco


On Feb 17, 2012, at 4:51 PM, Paulo SantAnna wrote:

>>  But now, I would like to move the quality of my Perl programs up a notch and use some of the standard modules to guarantee good XML output.
> 
> Take a look at the Perl & XML book from O'Reilly, also I think the
> XML::Smart module has more resources than XML::Simple and handle
> better more
> complex docs. Other good candidates depending on your task are
> XML::XPath and XML:Twig (for large docs and using callbacks)
> 
> Thanks,
> 
> Paulo
> 
> On Fri, Feb 17, 2012 at 2:33 PM, Stephen Wilcoxon <[email protected]> wrote:
>> I think what you want to do should be doable.  However, I'm not quite
>> following your descriptions.  Could you provide a sample $xmldata,
>> what the placeholders are you're looking for in it, and what you want
>> the output XML to be (or what you want the $xmldata to be prior to
>> output)?
>> 
>> On Fri, Feb 17, 2012 at 16:26, Dale Puckett <[email protected]> wrote:
>>> I have been working with XML for several years now and have always been able to get the job done. But now, I would like to move the quality of my Perl programs up a notch and use some of the standard modules to guarantee good XML output.
>>> 
>>> Unfortunately, I've hit a stumbling block and can't seem to get my head around the solution.
>>> 
>>> I want to read the data from an XML Sample file with XMLin and then be able to access it and manipulate it by retrieving values from our database, asset files and other sources and putting the retuned values back in the XML in place of the placeholders I use in the XML Sample file. Thee placeholders actually tell me where to go to get the data that I am going to return for each ad scheduled for a particular day.
>>> 
>>> Here's what I have tried so far.
>>> 
>>> -----
>>> use strict;
>>> use feature 'say';
>>> use XML::Simple;
>>> use Data::Dumper;
>>> 
>>> my $xmldata = XMLin('files/test.xml', ForceArray => 1, KeepRoot => 1);
>>> my %data = Dumper ($xmldata);
>>> 
>>> my $href = \%data;
>>> 
>>> for my $key (keys %{$href}){
>>>  say $key => ${$href}{$key};
>>>  say $key => ${$href}{value}
>>> }
>>> -----
>>> 
>>> What I want to do is get a list of keys with the values in the XML Sample file into memory so I can access them individual, get the data required for any particular node and eventually write out a complete file with all of the information returned for each ad scheduled that day.
>>> 
>>> The code above returns the same answer as:
>>> 
>>> print Dumper ($xmldata);
>>> 
>>> I've read several tutorials regarding references but I cannot seem to get my head wrapped around it. Does anyone know of a site where I can find example code used by someone trying to accomplish the same task?
>>> 
>>> I already have the code to get the data and write it out. I just need to be able to analyze the XML Sample and write a program to output it for each ad running on a given day.
>>> 
>>> All the tutorials and sample code I have found so far all assumes you know the names of the XML elements. In this case, I don't, and in fact they are different for every project I do so It would be a very long and tedious process to hand code a program to access the keys by hand.
>>> 
>>> All help will really be appreciated.
>>> 
>>> Thanks,
>>> 
>>> Dale
>>> -----
>>> Dale L. Puckett, Director of Operations
>>> Midwest Division, Brainworks Software Development Corporation
>>> 7570 West 21st Street North, Building 1010C, Wichita, KS 67205
>>> [email protected], 631-963-5555
>>> 
>>> _______________________________________________
>>> Perl-XML mailing list
>>> [email protected]
>>> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>> _______________________________________________
>> Perl-XML mailing list
>> [email protected]
>> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> _______________________________________________
> Perl-XML mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Francisco Obispo 
email: [email protected]
Phone: +1 650 423 1374 || INOC-DBA *3557* NOC
PGP KeyID = B38DB1BE

_______________________________________________
Perl-XML mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs