Parse xml fra et filehandle

[Poul Møller Hansen <sslug@sslug>]

Jeg har forsøgt at lave en webside hvor man kan uploade en xml fil og få
resultatet som semikolon separeret.

Det er blevet til to små scripte jeg ikke kan finde ud af at kæde sammen.
Det første skriver indholdet af filen ud i browseren, og det andet script
virker hvis det køres fra en shell.

Hvordan får jeg jeg mit filehandle <$parsefile> fra script1 kørt igennem
script2 ?

Poul


1. script

#!/usr/bin/perl

use CGI qw(:standard);
use XML::DOM;

$p = "<P>";
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'XML-Parser');
print $query->start_multipart_form(-action=>'./xmlparse.pl');

print $p . "Select file to parse : ";

print $query->filefield(-name=>'file');

print $p . $query->submit('Parse File');

print $query->endform;

if (param()) {
  print "You pressed \"Parse File\" ";
  $parsefile = $query->param('file');
  while (<$parsefile>) {
    print;
  }
}


2. script:

my $file = 'xmlfile.xml';
my $doc = $parser->parsefile($file);

foreach my $flelements ($doc->getElementsByTagName('TAG')){
  print
$flelements->getElementsByTagName('TAG1')->item(0)->getFirstChild->getNodeVa
lue . ";";
  print
$flelements->getElementsByTagName('TAG2')->item(0)->getFirstChild->getNodeVa
lue . ";";
  print
$flelements->getElementsByTagName('TAG3')->item(0)->getFirstChild->getNodeVa
lue . ";";
  print "\n";
}