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:56
#79421 #79421
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
meine variante ist schneller und verbraucht weniger speicher!

btw. was machst du, wenn dein script anstatt so
eus.cgi?parameter=foo&parameter2=bar
so
eus.cgi?parameter=foo;parameter2=bar

aufgerufen wird?

diesen teil:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

if($uploadpassword eq ""){
    $split =~ s/<;!--P(.+)P-->;//gs;
}else{
    $split =~ s/<;!--P(.+)P-->;/$1/gs;
}
if($deletepassword eq ""){
    $split3 =~ s/<;!--DP(.+)DP-->;//gs;
}else{
    $split3 =~ s/<;!--DP(.+)DP-->;/$1/gs;
}
if($renamefile eq "1"){
    $split =~ s/<;!--N(.+)N-->;//gs;
}else{
    $split =~ s/<;!--N(.+)N-->;/$1/gs;
}
if($description eq "1"){
    $split =~ s/<;!--D(.+)D-->;//gs;
}else{
    $split =~ s/<;!--D(.+)D-->;/$1/gs;
}


könntest du so übersichtlicher machen

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

sub ReplaceInComment
{
   my ($data, $type, $left, $right) = @_;
   if($left eq $right){
      $data =~ s/<;!--$type(.+)$type-->;//gs;
   }else{
      $data =~ s/<;!--$type(.+)$type-->;/$1/gs;
   }
   return $data;    
}

$split  = ReplaceInComment($split, "P", $uploadpassword, "");
$split3 = ReplaceInComment($split3, "DP", $deletepassword, "");
$split  = ReplaceInComment($split3, "N", $renamefile, "1");
$split  = ReplaceInComment($split3, "D", $description, "1");
\n\n

<!--EDIT|esskar|1061762301-->

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