Hi all,
I've got the solution which is better tahn the one I've had before: it
uses the perl XML:parser
#!/usr/bin/perl -w
use vars qw(%startsub, %endsub);
%startsub = (
"energieverbrauch" => "",
"energietraeger" => "",
"bezeichnung" => "",
"wert" => ""
);
%endsub = (
"energieverbrauch" => "",
"energietraeger" => "",
"bezeichnung" => "",
"wert" => ""
);
use XML::Parser;
my $file = shift;
my $parser = new XML::Parser(ErrorContext => 2);
$parser->setHandlers(Start => \&start_handler,
End => \&end_handler,
Char => \&char_handler);
$parser->parsefile($file);
sub start_handler
{
my $expat = shift; my $element = shift;
print $startsub{$element};
while (@_) {
my $att = shift;
my $val = shift;
print "$att=$val ";
}
}
sub end_handler
{
my $expat = shift; my $element = shift;
print $endsub{$element};
}
sub char_handler
{
my ($p, $data) = @_;
print $data;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
