Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Convert CSV file to XML file using Perl?

by bitingduck (Chaplain)
on Jul 04, 2015 at 02:50 UTC ( #1133122=note: print w/replies, xml ) Need Help??

in reply to Convert CSV file to XML file using Perl?

I'm too lazy right now to sort through your XML to figure out exactly how you want to do the structure-- rather than just turning each line into an XML record it looks like you want a bunch of nested loops following the columns almost from left to right, and terminating each loop when there's a change in the value. That should be pretty straightforward.

You should be able to use Text::CSV and XML::LibXML to do something that runs pretty fast. You can probably get by with focusing on the XML::LibXML::Node and XML::LibXML::Element docs.

And before you get too far- have you profiled your code at all to see where the hangups are? Is it the SQL being super slow because you don't have it indexed on the right columns and while the perl might turn the CSV into XML in a second or two, you're going to spend 3 days exporting the SQL to CSV in the sorted format you show here?

  • Comment on Re: Convert CSV file to XML file using Perl?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1133122]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2018-06-19 01:38 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (111 votes). Check out past polls.