Thread Bild uploaden: Wie lade ich ein Bild mit Perl hoch ? (29 answers)
Opened by BrownWolf at 2003-08-25 00:26

esskar
 2003-08-25 01:38
#79417 #79417
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
okay...
aber warum
- lagerst du die daten zum GET und POST Daten parsen nicht in ein eigenes Modul aus... musst es ja nicht in eine eigene datei schreiben, sondern z.B. ans Ende des Scripts bsp:
pcakage MyCGI;
# blbla
1;

- wieso benutzt du keine strict und noch schlimmer, wieso benutzt du kein my ?

- funktionen die so heißen wie perl-build-in funktionen sind kein guter Stil... hiermit meine ich index und delete

- folgender Ausschnitt (Zeile 400 - 416):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if($checksuffix eq "0") {
    open(F, "data/suffixfiles.txt") || die "Cant't open data: 'data/suffixfiles.txt'!\n$!";
    flock(F,2) if($flock);
    @suffix = <F>;
    flock(F,8) if($flock);
    close(F);

    foreach $i (@suffix){
        chomp($i);
        $i =~ s/[\n\r]//g;
        if($FILE{'uploaddata01'} =~ m/\.$i$/i){
            $x = "1";
        }
    }

    &index("Datei besitzt ung&uuml;ltige Endung!") if($x ne "1");
}


hätte ich so geschrieben

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if($checksuffix eq "0") {
    open(F, "data/suffixfiles.txt") || die "Cant't open data: 'data/suffixfiles.txt'!\n$!";
    flock(F,2) if($flock);
    while(<F>) {
        chomp;
        s/[\n\r]//g;
        if($FILE{'uploaddata01'} =~ m/\.$_$/i){
            $x = "1";
        }
    }
    # flock(F,8) if($flock); //unflock ist nicht nötig
    close(F);

    &index("Datei besitzt ung&uuml;ltige Endung!") if($x ne "1");
}


- usw. usf.

View full thread Bild uploaden: Wie lade ich ein Bild mit Perl hoch ?