Read lokales file

[kakalake]

Ich weiss, daß es schon ein Thema dazu gibt. Ich habe mir auch schon ein uploadfile beispiel heruntergeladen. Kann mir jemand trotzdem erklären wie es machen soll, ein File uploaden....
Ich habe einfach folgendes gemacht...

my @daten;
open(FILE,"<$neudaten{'Datei'}") or die "Konnte das File zum Lesen nicht öffnen:$!";
push @daten, $buffer while (read(FILE,$buffer,1024));
close(FILE);

jedoch funtzt es nicht...

Kann mir jamand helfen????

 

[Klaus]

hi,

versuchs mal damit:

<?
if(isset($file)) {
echo "Datei Informationen: $file, $file_name, $file_size, $file_type<br><br>";

if($file != "none") {
if(copy($file,"´./upload/".$file_name)) {
echo "Upload vollständig";
} else {
echo "Upload fehlgeschlagen";
}
} else {
echo "Eine Datei zum Uploaden muss angegeben werden";
}
} else {
?>
<form action="<?php echo $PHP_SELF ?>" method="post" enctype="multipart/form-data">
<input type=hidden name="MAX_FILE_SIZE" value="50480" size="40">
<input type="file" name="file"> <input type="submit" value="Upload!">
</form>
<?
}
?>

 

[kakalake]

Irgenwie funzts

Ich wollte kein PHP, jedich habe ich es auch mit Perl hingekriegt....

open(OUTFILE,">myFile.dat") or die "Konnte das File zum Schreiben
nicht öffenen: $!";

binmode OUTFILE;

my $buffer = "";

while ( read($q->param('Datei'),$buffer,1024) )
{
print OUTFILE $buffer;
}

close(OUTFILE);

Es funktioniert perfekt, jedoch habe ich trotzdem noch eine frage.
Ich habe eine Buch und da steht so etwas drin...


open(OUTFILE,">myFile.dat") or die "Konnte das File zum Schreiben
nicht öffenen: $!";

$fh = $q->upload($q->param('Datei'));


binmode OUTFILE;

my $buffer = "";

while ( read($fh,$buffer,1024) )
{
print OUTFILE $buffer;
}

close(OUTFILE);

jedoch hat dies nicht funktioniert, es hat immer nur Temopräre Dateien in cgi-bin abgelegt. Wieso geht dies nicht. Ist upload schon veraltet...

Danke!