nicht angemeldet
Hi,
Das war ja nur ein Ausschnitt des Scripts. Hier ist der Rest:
danke. Du versäumst es beim größten Teil Deiner Variablen, diese sauber zu deklarieren, was unter anderem daran liegt, dass Du dies verwendest:
#!/usr/bin/perl
anstatt:
#!/usr/bin/perl -w
use strict;
my $cgi = new CGI;
Diesen Code hast Du vermutlich abgeschrieben, richtig? ;-)
$Uploadpfad = "daten/";
perldoc -f my
perldoc perlstyle (Schreibweise von Variablen)
Dateiupload("myfile");
Bitte mit führendem "&", wenn es sich um eigene Methoden handelt.
sub Dateiupload
{
perldoc perlstyle (Klammersetzung bei Blöcken)
$file = $cgi->param($_[0]);
Tipp: perldoc -f shift
Und initialisiere die Werte bitte, oder werte ein fehlendes Argument als Fehler aus.
$Bildnummer++;
Hier fehlt die Deklaration und Initialisierung. Mit -w und strict wirst Du _viele_ Fehler genannt bekommen...
#if($ENV{'CONTENT_LENGTH'} > 160000)
perldoc CGI ($POST_MAX)
#my @extensions = qw(xls doc Xls Doc XLS DOC);
perldoc -f lc
open DAT,'>'.$fname or print 'Error processing file: ',$!;
Immer noch Klammerung. Siehe auch
perldoc perlstyle (Klammerung bei Funktionen)
while(read $file,$data,2097152)
perldoc CGI (Upload)
Cheatah