hallo,
ich suche ein uploadskript, mit dem mann über ein textfeld u. einen durchsuchen-button die datei auswählen kann u. dann in ein bestimmtes vordefiniertes verzeichnis laden kann.
kann mir eventuell jemand weiterhelfen? 
… danke flayoo
html:
....
…
#!perl
use strict;
use CGI;
my $query=new CGI;
&saveupload ($q, "meinupload", "hiervielleichteindateinameundpfad");
sub saveUpload { #query, file-field-name, optional save-filename and path
my $query=$\_[0]; #cgi-query objekt
my $filefield=$\_[1]; #name des filefeldes
my $file=$query-\>param($filefield); #upload-filehandle holen
my $outfile=$\_[2]; #serverpfad und name des uploads
my $sys; #schreibpuffer
my @outf;
if (!$outfile) { wenn kein Dateiname zum speichern, hole ursprünglichen Namen
$outfile=$file; $outfile =~ s/\\/\//g; #windowspfade umwandeln \ =\> /
@outf=split("/",$outfile);
$outfile=mypath".$outf[scalar @outf-1]; #reinen filenamen holen
}
open OUTF, "\> $outfile" or die "not open $outfile"; #datei zum schreiben öffnen
binmode($file); binmode(OUTF); #windowsmacken ausbügeln
while ($c=sysread($file,$sys,1024,0)) { #loop datei
print OUTF $sys;
}
close OUTF; close $file;
return 1;
}
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hallo,
danke für das skript. aber ich mit perl leider echt so gar nichts anfangen. in php habe ich bisher leider kein funktionsfähiges upload-skript gefunden, so dass ich jetzt eins in perl benötige…aber gibt es vielleicht irgendwo ein tutorial dazu …``???
hallo flayoo,
danke für das skript. aber ich mit perl leider echt so gar
nichts anfangen. in php habe ich bisher leider kein
funktionsfähiges upload-skript gefunden, so dass ich jetzt
eins in perl benötige…aber gibt es vielleicht irgendwo
ein tutorial dazu …``???
Erklärungen und ein ähnliches Beispiel finden sich in der Dokumentation zu CGI.pm (das Perl-Modul, das per use CGI; aufgerufen wird).
Schau mal unter
http://www.perl.com
http://www.cpan.org
oder auch bei den
http://www.perlmonks.org
Leider alles auf Englisch, aber es ist eigentlich nicht schwierig.
Schönen Gruss, Ingo