Opened by olruebe01 at 2006-12-14 00:41
User since
2006-01-19
192 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-01-19
192 Artikel
BenutzerIn
Sorry für die Tags...
@GwenDragon. Ja, generell ist mir das Problem schon bekannt. Dass ich sie am Anfang des Sriktes löschen muss, ist mir auch klar. Mache ich das aber nicht gerade durch das Deklarieren??? Ich habe gelesen, dass ein Variable nach dem Deklarieren leer ist. Auch habe ich gelesen, dass man die Variablen SO SPÄT WIE MÖGLICH Deklarieren sollte.
Und nun kommts: Am Ende auch noch löschen??? Das wäre mir neu.
Blöde Frage: Wie wichtig ist in diesem Falle der BEgin- und End-Block? Ich habe das schon alles Deklariert, allerdings nicht in einem Block. Davorn höre ich gerade zum ersten mal und muss mich wohl erst schlau lesen.
Ich dachte, dass man die Variablen SO SPÄT WIE MÖGLICH Deklarieren sollte?? Das wiederspricht ja dann einem Begin-Block.
So habe ich es gemacht:
Liegt hier ein / DER Fehler?\n\n
<!--EDIT|olruebe01|1166098995-->
@GwenDragon. Ja, generell ist mir das Problem schon bekannt. Dass ich sie am Anfang des Sriktes löschen muss, ist mir auch klar. Mache ich das aber nicht gerade durch das Deklarieren??? Ich habe gelesen, dass ein Variable nach dem Deklarieren leer ist. Auch habe ich gelesen, dass man die Variablen SO SPÄT WIE MÖGLICH Deklarieren sollte.
Und nun kommts: Am Ende auch noch löschen??? Das wäre mir neu.
Blöde Frage: Wie wichtig ist in diesem Falle der BEgin- und End-Block? Ich habe das schon alles Deklariert, allerdings nicht in einem Block. Davorn höre ich gerade zum ersten mal und muss mich wohl erst schlau lesen.
Ich dachte, dass man die Variablen SO SPÄT WIE MÖGLICH Deklarieren sollte?? Das wiederspricht ja dann einem Begin-Block.
So habe ich es gemacht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl -w
use warnings;
use strict;
my @arrnameval;
my %FORMDATA;
my $querystring;
my $nam;
my $val;
my $namval;
my $ergebnis="";
my $fehlermeldung;
$FORMDATA{item}=0;
$FORMDATA{Galerie}="";
$FORMDATA{User};
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
$querystring = $ENV{'QUERY_STRING'};
}
if ($querystring !~ "QQitemZ") {
@arrnameval = split(/&/, $querystring);
} else {
@arrnameval = split(/QQ/, $querystring);
}
foreach $namval (@arrnameval)
{
if ($querystring !~ "QQitemZ") {
($nam, $val) = split(/=/, $namval);} else {
($nam, $val) = split(/Z/, $namval);}
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORMDATA{$nam} = $val;
}
...
...
Liegt hier ein / DER Fehler?\n\n
<!--EDIT|olruebe01|1166098995-->