XML Parsen - #158248 (Allgemeines zu Perl)

perl-snaks

2012-05-09 13:25

User since
2012-04-19
54 Artikel
BenutzerIn
[default_avatar]

Hallo GwegDragon,

Danke für deine Antwort.
Vielleicht habe ich dein Code nicht so richtig verstanden deswegen hat es bei mir nicht funktioniert.

Also ich ziehe einen Report via HTTPs und kommt als response ein XML. Diese möchte ich zu HTML parsen.
Das Parsen möchte ich mit XML::Parser machen. Leider diese XML::Parser bietet keine Parse_String Methode.
Deswegen habe ich gedacht, dass ich response->decode_content in einem Verzeichnis speichere und wieder parsen mit:

Code (perl): (dl )

use XML::Parser;
my $zeiger = new XML::Parser ();
 
$zeiger->setHandlers (
Start => \&anfang,
End => \&ende,Char=>\&inhalt );
$zeiger->parsefile ("test.xml");
 
print "<html><head><body>";
 
sub anfang 
{
%watnu1=("persona"=>"<table border=1 bgclor=yellow>","name"=>
"<tr><td>","telefon"=>"<td>","beruf"=>"<td>","adresse"=>"<td>");
$wert_des_zeigers = shift;
$starttag=shift;
print $watnu1{$starttag};
print "\n";
}
 
sub ende
{
%watnu2=("persona"=>"</table>","name"=>
"</td>","telefon"=>"</td>","beruf"=>"</td>","adresse"=>"</td></tr>");
($wert_des_zeigers,$endtag) = @_;
print "$watnu2{$endtag}";
}
 
sub inhalt 
{
($wert_des_zeigers,$inhalt)=@_;
print " $inhalt";
}
 
print "</body></html>";

Logischerweise soll ich eine Datei erstellen und den Inhalt in dieser Datei speichern.

geht das auch mit dein code?
Danke im Voraus.