Re: newbie regex question: substituting repeating occurences for different replacements

This got me thinking... I often create xml but always with the first tag being different for each .. well where the tag <row> exists here I normally only need

<row>a</row>
<row2>b</row2>
[download]

So here is my stab at doing this with XML::Simple. Please comment on how I can refine this... but I do know it outputs what was asked for... ;-D

#! /usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my (%h);

my $xs = XML::Simple->new(    keeproot => 1,
                                    noattr => 1,
                               noescape => 1);

open (FILE, ">>./Test.xml") or die "Cannot create Test.xml: $!\n";

while (<DATA>) {
    delete $h{row};
    my $count = 0;
    chomp;
    my @line = split(/;/);
    foreach my $var (@line) {
        $count++;
        my $tag = "col" . $count;
        $h{'row'}{$tag} = $var;
    }
    print Dumper(\%h);
    print FILE $xs->XMLout(\%h);
}
 
close(FILE); 

__DATA__
a;b;c;d;e
f;g;h
i;
j
[download]

-----
Of all the things I've lost in my life, its my mind I miss the most.

Comment on Re: newbie regex question: substituting repeating occurences for different replacements Select or Download Code

Replies are listed 'Best First'.

(jeffa) 2Re: substituting repeating occurences ... (XML::Generator::DBI / DBD::AnyData version)
by jeffa (Bishop) on Jul 09, 2003 at 22:05 UTC

a solution

<foo>

XML::Simple

forcearray

I posted a few solutions to converting CSV to XML over at CSV to XML (the quick and dirty way). Ultimately, CSV::XML looks the easiest, but i still dig using XML::Generator::DBI. One option i didn't try at the time, however, was DBD::AnyData. Here's one that follows the <colN> naming convention and uses the previous two modules ... but, caveats:

commas are used instead of semi-colons - DBD::AnyData does not handle them, but could be written to do so, if desired. However, note that CSV stands for comma. ;)
ughh ... i have to specify the maximum number of columns to be expected. This is not something i advocate, but then again, this is all because the <colN> have to be incremented.

use strict;
use warnings;

use DBI;
use XML::Generator::DBI;
use XML::Handler::YAWriter;

my $max  = 5;
my $data = join(',',map"col$_",1..$max) . do {local $/;<DATA>};
my $dbh  = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func('test', 'CSV', [$data], 'ad_import');

my $generator = XML::Generator::DBI->new(
   Handler => XML::Handler::YAWriter->new(AsFile => '-'),
   dbh     => $dbh,
   Indent  => 1,
);

$generator->execute('select * from test');

__DATA__
colContents,nextColContents,lastColContents
colContents2,nextColContents2,lastColContents2
colContents3,nextColContents3,lastColContents3
a,b,c,d,e
f,g,h,i
j,k
l
m,n,o
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[reply]
[d/l]


XP is just a number
	PerlMonks