nicht angemeldet
ich nochmal,
danke für eure antworten, hab das problem teilweise schon gelöst.
zuerst wurde gar nix in die Datei geschrieben. Lag wohl daran das man beim print befehl auch noch den dateihandle übergeben sollte!!!!!
tja nun schreibt er mir in die datei aber leider nicht den inhalt aus variable "$wert"??????????
übrigens den tip mit den modulen hab ich schon oft gehört. ich werds mit den modulen auch versuchen, aber erstmal probier ich perl in seinen grundsätzen zu verstehen.
hier nochmals der geaenderte code wenn jemand weiss warum $wert nix übergibt please tell me! thx 2 all:
PROG:
#!c:/perl/perl.exe -w
read (STDIN, $daten, $ENV{'CONTENT_LENGTH'});
%daten = &CGIDA ($daten);
$name = "test".".dat";
$verz = "c:\inetpub\intranet\test\data\";
open (DATEN, ">>$verz$name");
while ( ($temp, $wert) = each %daten)
{
print DATEN ("$wert");
$temp = 0
}
print DATEN ("<br>");
close DATEN;
sub CGIDA
{
local ($cgiskalar, $name, $daten);
local @cgiliste;
local %cgihash;
if ($_[0])
{
$cgiskalar = $_[0];
}
else
{
print STDERR "keine Daten uebergeben!!!\n";
}
@cgiliste = split(/[&;]/ , $cgiskalar);
foreach $listeneintrag (@cgiliste)
{
($name, $daten) = split( /=/ , $listeneintrag);
$name =~ s/%(..)/pack("c",hex($1))/ge;
$daten =~ s/%(..)/pack("c",hex($1))/ge;
$cgihash {$name} = $daten;
}
return $cgihash
}
print "Content-type: text/html\n\n";
print '<html>';
print '<head>';
print '<title>Antwortseite</title>';
print '</head>';
print '<body>';
print '<hr>';
print '<h1>Ihre Daten wurden erfolgreich gespeichert!<H1>';
print '<hr>';
print '</body>';
print '</html>';
PROGENDE
cu martin