Menu Search

CGI/Perl

XML Parser - Transfrom to HTML
#!/usr/bin/perl
use XML::Parser;
my $zeiger = new XML::Parser ();

$zeiger->setHandlers (Start => &anfang,End => &ende,Char=>&inhalt );

$zeiger->parsefile ("test.xml");

sub anfang
{
$wert_des_zeigers = shift;
$starttag= shift;
print "";
print "
";
}
sub ende
{
($wert_des_zeigers,$endtag) = @_;
print "
";
}
sub inhalt
{
($wert_des_zeigers,$inhalt)=@_;
print " $inhalt";
}
http://www.infos24.de/perle/handbuch/17_xml_mit_perl.htm

#!/usr/bin/perl

print "Content-type:text/html

";

use XML::Parser;
my $zeiger = new XML::Parser ();

$zeiger->setHandlers (
Start => &anfang,
End => &ende,Char=>&inhalt );
$zeiger->parsefile ("test.xml");

print "";

sub anfang
{
%watnu1=("persona"=>"","name"=>
"
","telefon"=>"","beruf"=>"","adresse"=>"");
$wert_des_zeigers = shift;
$starttag=shift;
print $watnu1{$starttag};
print "
";
}

sub ende
{
%watnu2=("persona"=>"
","name"=>
"","telefon"=>"","beruf"=>"","adresse"=>"");
($wert_des_zeigers,$endtag) = @_;
print "$watnu2{$endtag}";
}

sub inhalt
{
($wert_des_zeigers,$inhalt)=@_;
print " $inhalt";
}

print "";

Liste

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

Index

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

LetzteChance.Org - Links -

PDF/ZIP/Word