Erhöhung von Variablen (Perl/CGI)

Sven

2003-08-26 18:30

User since
2003-08-26
20 Artikel
BenutzerIn
[default_avatar]

Halllo,
schaut mal hier.
Links unten seht ihr den Zählerstand.
Bei next sollte es sich immer um eins erhöhen, das tut es aber nicht wirklich.

Code(gekürzt) dazu:

Code: (dl )

@array = ("/bilder/1.jpg", "/bilder/2.jpg","/bilder/3.jpg", "/bilder/4.jpg","/bilder/5.jpg", "/bilder/6.jpg","/bilder/7.jpg", \ 
	"/bilder/8.jpg", "/bilder/9.jpg","/bilder/10.jpg", "/bilder/11.jpg","/bilder/12.jpg", "/bilder/13.jpg");

if ( defined(param('prev')) )
	{   
 		$i = $i - 1;
 	} 
elsif ( defined(param('next')) )
 	{    
 		$i = $i + 1;
 	}

<form name="form" id="form" method="post" action="/cgi-bin/bilder.pl">
	<table width="100%" border="0" cellspacing="5">
     	<tr> 
       		<td>
       			<div align="right"> 
           			<input name="prev" type="submit" id="prev" value="Prev" />
	         	</div>
        	</td>
		<td> 
			<input name="next" type="submit" id="next" value="Next" />
		</td>
     	</tr>
     	<tr> 
        	<td colspan="2">&nbsp;</td>
     	</tr>
   	</table>
   	<table width="100%" border="0" align="center">
     	<tr> 
       	<td height="584">
		<div align="center"><img src="$array[$i]" /></div></td>
     	</tr>

Eine Idee, warum nicht.

Besten Dank
Sven

renee

2003-08-26 18:32

User since
2003-08-04
14371 Artikel
ModeratorIn

probier's mal mit geschweiften Klammern:

Code: (dl )

1
2
3

if(param{'next'}){
...
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pq

2003-08-26 18:33

User since
2003-08-04
12208 Artikel
Admin1

naja, $i ist ja immer erstmal 0. woher soll das skript wissen, dass
es vorher nicht 0 war? du musst $i schon im formular mit übergeben.

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

pq

2003-08-26 18:33

User since
2003-08-04
12208 Artikel
Admin1

[quote=renee,26.08.2003, 16:32]probier's mal mit geschweiften Klammern:

Code: (dl )

1
2
3

if(param{'next'}){
...
}

[/quote]
param() ist eine funktion.

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

JW

2003-08-26 18:37

User since
2003-08-04
467 Artikel
HausmeisterIn

CGI-Skripte sind zustandslos. Nach jedem Aufruf hat dein Zähler den Wert 0, deswegen läuft dein Skript nur auf Pos. -1 und 1. Gib über ein Hidden-Field immer den letzten Wert von $i mit und werte ihn bei Skriptstart wieder aus.

Dresden Perlmongers

renee

2003-08-26 18:39

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=pq,26.08.2003, 16:33][quote=renee,26.08.2003, 16:32]probier's mal mit geschweiften Klammern:

Code: (dl )

1
2
3

if(param{'next'}){
...
}

[/quote]
param() ist eine funktion.[/quote]
ups, *an die stirn schlag* ich benutze nur noch das Vars() von CGI... Da bin ich das nicht mehr gewohnt...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Sven

2003-08-26 19:00

User since
2003-08-26
20 Artikel
BenutzerIn
[default_avatar]

@JW
Genau, die Idee!
Bin doch da nicht drauf gekommen.

Danke