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
Oh mann...
Ja, diesen Artikel kenne ich und nachdem hatte ich das Script auf geschrieben (wenn auch anscheinend mit einem Fehler)...
Ich hatte dann nur Eure Beiträge so verstanden, dass ich das Deklarieren im BEGIN-Block machen soll (Zitat gwendragon: "Wenn du Variablen nicht am Anfang des SKripts im BEGIN-Block und am Ende im END-Block löscht, dann bleiben sie immer im Speicher.") und somit hatte ich das versucht...
Deine VErsion mit CGI habe ich gerade ausprobiert. Es ändert leider nichts... :-(
\n\n
<!--EDIT|olruebe01|1166110541-->
Ja, diesen Artikel kenne ich und nachdem hatte ich das Script auf geschrieben (wenn auch anscheinend mit einem Fehler)...
Ich hatte dann nur Eure Beiträge so verstanden, dass ich das Deklarieren im BEGIN-Block machen soll (Zitat gwendragon: "Wenn du Variablen nicht am Anfang des SKripts im BEGIN-Block und am Ende im END-Block löscht, dann bleiben sie immer im Speicher.") und somit hatte ich das versucht...
Deine VErsion mit CGI habe ich gerade ausprobiert. Es ändert leider nichts... :-(
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
#!/usr/bin/perl -w
use warnings;
use strict;
use CGI;
my $cgi = CGI->new();
my %FORMDATA = $cgi->Vars();
my @arrnameval = ();
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'};
#print "$querystring<BR>";
}
if ($querystring !~ "QQitemZ") {
@arrnameval = split(/&/, $querystring);
} else {
...
..
<!--EDIT|olruebe01|1166110541-->