!C:\Perl\bin\Perl.exe [/c]print "Content-type:text/html\n\n"; use CGI; use CGI::Carp qw(fatalsToBrowser); use XML::Parser; my $cgi = new CGI; my $var = CGI:aram('ip'); my $url1 = 'https://www.xxyyzz.de/'; ### url my $uri = "$url1?ref=$var& save_report=yes" ; print "Location: $uri\n\n"; #### es gibt eine HTML-Seite mit einem Inputfeld nach der eingabe des Referenzes # wird in der URL # übermittelt und ganze URL an den Server des Hertsteller geleitet, so dass der server anhand des eingegeben Referenz # ein Report als XMl zur Verfügung stellt. Bis hier hin bekomme ich eine XML-Ausgabe. Ich will jetzt die Ausgabe des "print "Location: $uri\n\n";" in einem verzeichnis zwischen speichern: open(KIRSCHE,">>c:/Programme/Apache/cgi-bin/grab.xml"); ####XML Ausgabe soll in dieser Datei gespeichert select(KIRSCHE); print KIRSCHE $doc; select(STDOUT); close(KIRSCHE); DIe XMl datei "grab.xml" mittels XML::parser zu html umwandeln: my $zeiger = new XML::Parser (); ######die gespeicherte Datei parsen $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("grab.xml"); print ""; sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print "
$inhalt
"; } sub ende { %watnu2=("SCAN"=>"","KEY"=> "","IP"=>"","OS"=>"","NETBIOS_HOSTNAME"=>""); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub anfang { %watnu1=("SCAN"=>"","KEY"=> "","IP"=>"","OS"=>"","NETBIOS_HOSTNAME"=>""); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; }