upload skript funktioniert nicht

[Peter]

hallo,

bei meinem letzten Posting habe ich dieses skript bekommen zum datei-upload :

#!/usr/bin/perl

use CGI;

$query = new CGI;

open(OUT, ">test.txt") die;
print OUT $query->param('uploaded_file');
close OUT;

Dieser Code schreibt allerdings (wie logisch anzunehmen ist) nur den Dateinamen in test.txt und nicht den inhalt der datei !
Kann mir jemand helfen und sagen , wie es richtig geht ?

MfG
Peter Schenkel

[klaus]

Dieser Code schreibt allerdings (wie logisch anzunehmen ist) nur den Dateinamen in test.txt und nicht den inhalt der datei !
Kann mir jemand helfen und sagen , wie es richtig geht ?

Hallo,

$fh = $query->upload('uploaded_file');
open(OUT,">local_filename";
while (<$fh>)
    {
    print OUT;
    }
close(OUT);

laut CGI.pm-Doku (ab Version 2.47  des Moduls)

Wenn deine zu alt ist, dann hol Dir eine neuere vom nächsten CPAN-Server.

Grüße
Klaus