Creating XML Doctype from tab-delimited file input?

[Chris Garaffa]

Hi everyone,

I have a few files containing references to 186,000 graphics from Extensis 
Portfolio that I need to import into FileMaker Pro. We've already decided 
the best way is via importing an XML file. I have an idea on how to get 
the data into an XML file and it seems to work (in theory - the server is 
still exporting and will be for the next day) (the file is tab-delimited, 
so I'm going to use split(/\t/, $line);. My question is how to create a 
valid XML DOCTYPE from this input. Here's my code so far:
Again, I haven't been able to test this out, because the server isn't done 
writing the text files, but I want to have a script ready when it is done.

#!/usr/bin/perl -w
OPEN (OUTFILE, ">/output.txt");
print OUTFILE "<?xml version=\"1.0\"?>";
OPEN (INFILE, "</input.txt");
while (<INFILE>)
        {
                my($line) = $_;
                chomp($line);
                my ($key, $value)=~ split(/\t/, $line);
                my %file($key) = $value;
                print OUTFILE <<"END";
                $file($key) = $file($value)
                END
        }
close (INFILE);
close (OUTFILE);

Thanks,
Chris Garaffa

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]