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

pq
 2003-08-25 03:59
#79429 #79429
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=esskar,24.08.2003, 23:38]
hätte ich so geschrieben

# rote schrift von pq

if($checksuffix eq "0") {
    open(F, "data/suffixfiles.txt") || die "Cant't open data: 'data/suffixfiles.txt'!
$!";
    flock(F,2) if($flock);
   # lieber konstanten (LOCK_EX) verwenden. code ist für menschen
   # und soll lesbar sein
    while(<F>) {
        chomp; # unnötig, nimm y///
        s/[ \r]//g;# y/// ist schneller
        if($FILE{'uploaddata01'} =~ m/\.$_$/i){
            $x = "1";
           # hier kann man schon die schleife beenden
        }
    }
    # flock(F,8) if($flock); //unflock ist nicht nötig
   # kann sogar schädlich sein
    close(F);

    &index("Datei besitzt ungültige Endung!") if($x ne "1");
   # wofür das '&'? (wie du schon gesagt hast, lieber
   # eigene funktionsnamen verwenden
}

- usw. usf.[/quote]
und ich:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

    use Fcntl qw(:flock); # ist bei jeder perl-version dabei!
    my $x;
    open F, "data/suffixfiles.txt" or die "Cant't open data: 'data/suffixfiles.txt'!
$!";
    flock F, LOCK_EX if $flock ;
    while(<F>) {
        y/ \r\n//d;
        $x = 1, last if($FILE{'uploaddata01'} =~ m/\.$_$/i);
    }
    close F ;

    myindex("Datei besitzt ungültige Endung!")  unless $x;
}
\n\n

<!--EDIT|pq|1061770063-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

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