CSV to quasi-XML
in [Perl]
|
Prev: CSV_XS Question
Next: s replace p modifier
From: Travis on 14 Apr 2008 17:30 Hi there, Never written a line of Perl until now but I think it might be perfect for this little program I need. I have some CSV files that are given to me and I need to spit them in a format that kind of looks like XML but I don't think it is. The structure looks something like this: <ADDRESSES> <struct> <field name="First" value="John" /> <field name="Last" value="Doe" /> <field name="City" value="San Francisco" /> </struct><struct> <field name="First" value="Jane" /> <field name="Last" value="Johnson" /> <field name="City" value="New York City" /> </struct> </ADDRESSES> I don't think that's standard XML is it? If so please let me know so I can change my google searching on the topic. Anyway, I get CSV's that look something like this: First,Last,City John,Doe,San Francisco Jane,Johnson,New York City I'm a C/C++ person by nature but I thought this would be a good way to get my hands in Perl and learn a bit. Any guidance is helpful. Thanks.
From: Travis on 14 Apr 2008 17:34 Oh also there should be a newline \n between the closing </struct> and the next <struct>
From: A. Sinan Unur on 14 Apr 2008 17:52 Travis <travis.bowers(a)gmail.com> wrote in news:1db6609e-07f3-4388-befb-9088405d95e9 @w4g2000prd.googlegroups.com : > Never written a line of Perl until now but I think it might be > perfect for this little program I need. It looks you are planning to have someone else write the lines of Perl that might be needed rather than writing them yourself. > I have some CSV files that are given to me and I need to spit them > in a format that kind of looks like XML but I don't think it is. > The structure looks something like this: > > <ADDRESSES> > <struct> > <field name="First" value="John" /> > <field name="Last" value="Doe" /> > <field name="City" value="San Francisco" /> > </struct><struct> > <field name="First" value="Jane" /> > <field name="Last" value="Johnson" /> > <field name="City" value="New York City" /> > </struct> > </ADDRESSES> > > > I don't think that's standard XML is it? Of course, it is. > If so please let me know > so I can change my google searching on the topic. Why would searching Google be easier than writing the program in the first place? > > Anyway, I get CSV's that look something like this: > > First,Last,City > John,Doe,San Francisco > Jane,Johnson,New York City > > I'm a C/C++ person by nature No one is a 'C/C++ person' by nature. If you know C, this is trivial to write. So, first write the program in C, then read <URL:http://www.ebb.org/PickingUpPerl/>. You can then come back and ask if you run into any problems. > but I thought this would be a good > way to get my hands in Perl and learn a bit. > > Any guidance is helpful. Thanks. OK, here is a part of a fish: my ($first, $last, $city) = split /,/, $line; print <<STRUCT; <struct> <field name="First" value="$first" /> <field name="Last" value="$last" /> <field name="City" value="$city" /> </struct> STRUCT There is also: http://csv2xml.sourceforge.net/ Sinan -- A. Sinan Unur <1usa(a)llenroc.ude.invalid> (remove .invalid and reverse each component for email address) comp.lang.perl.misc guidelines on the WWW: http://www.rehabitation.com/clpmisc/
From: A. Sinan Unur on 14 Apr 2008 17:52 Travis <travis.bowers(a)gmail.com> wrote in news:7f4a5bd7-8002-4b8e-b91d-08288e1ff51c(a)u36g2000prf.googlegroups.co m: > Oh also there should be a newline \n between the closing </struct> > and the next <struct> I knew I was making a mistake replying. *Sigh*. Just confirmed my expectations. Sinan -- A. Sinan Unur <1usa(a)llenroc.ude.invalid> (remove .invalid and reverse each component for email address) comp.lang.perl.misc guidelines on the WWW: http://www.rehabitation.com/clpmisc/
From: Travis on 14 Apr 2008 17:55
On Apr 14, 2:52 pm, "A. Sinan Unur" <1...(a)llenroc.ude.invalid> wrote: > Travis <travis.bow...(a)gmail.com> wrote in > news:1db6609e-07f3-4388-befb-9088405d95e9 > @w4g2000prd.googlegroups.com > : > > > Never written a line of Perl until now but I think it might be > > perfect for this little program I need. > > It looks you are planning to have someone else write the lines of > Perl that might be needed rather than writing them yourself. > > > > > I have some CSV files that are given to me and I need to spit them > > in a format that kind of looks like XML but I don't think it is. > > The structure looks something like this: > > > <ADDRESSES> > > <struct> > > <field name="First" value="John" /> > > <field name="Last" value="Doe" /> > > <field name="City" value="San Francisco" /> > > </struct><struct> > > <field name="First" value="Jane" /> > > <field name="Last" value="Johnson" /> > > <field name="City" value="New York City" /> > > </struct> > > </ADDRESSES> > > > I don't think that's standard XML is it? > > Of course, it is. > > > If so please let me know > > so I can change my google searching on the topic. > > Why would searching Google be easier than writing the program in the > first place? > > > > > Anyway, I get CSV's that look something like this: > > > First,Last,City > > John,Doe,San Francisco > > Jane,Johnson,New York City > > > I'm a C/C++ person by nature > > No one is a 'C/C++ person' by nature. If you know C, this is trivial > to write. So, first write the program in C, then read > <URL:http://www.ebb.org/PickingUpPerl/>. You can then come back and > ask if you run into any problems. > > > but I thought this would be a good > > way to get my hands in Perl and learn a bit. > > > Any guidance is helpful. Thanks. > > OK, here is a part of a fish: > > my ($first, $last, $city) = split /,/, $line; > > print <<STRUCT; > <struct> > <field name="First" value="$first" /> > <field name="Last" value="$last" /> > <field name="City" value="$city" /> > </struct> > STRUCT > > There is also: > > http://csv2xml.sourceforge.net/ > > Sinan > > -- > A. Sinan Unur <1...(a)llenroc.ude.invalid> > (remove .invalid and reverse each component for email address) > > comp.lang.perl.misc guidelines on the WWW:http://www.rehabitation.com/clpmisc/ lol thanks for the taste. i appreciate it. |