Übergabe CGI (Perl/CGI) - Perl-Community.de

[thread]264[/thread]

Übergabe CGI

Leser: 1

Gast Gast

2004-05-18 17:43

Bitte nicht beleidigt sein ...
aber das sieht ziemlich böse aus:
- die HTML-Tags stimmen nicht (bitte die Leerzeichen vor und nach '=' entfernen)
- wenn schon ohne CGI.pm gearbeitet wird dann sollten zumindest die endlosen 'print' Anweisungen per
print <<EO_HTML;
zusammengefasst werden.

Wie wertest Du die Formular-Einträge aus?

renee

2004-05-19 01:39

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich rate dir das CGI-Modul zu verwenden...

Code: (dl )

use CGI;

my $cgi = CGI->new(); # neues CGI-Objekt erzeugen
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');

my @values = split(/\0/,$params{kategorie});

print $cgi->start_html(),$cgi->h2('Werte aus select');
print $_,'<br />' for(@values);
print $cgi->end_html();

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/

Crian

2004-05-24 15:46

User since
2003-08-04
5870 Artikel
ModeratorIn

Ich verschieb das mal zu den CGI's...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

[E|B]

2004-05-18 21:33

User since
2003-08-08
2561 Artikel
HausmeisterIn

Quote
Benötige aber trotzdem noch die Elemente von den Auswahllisten. Kann mir jemand sagen, wie ich an diese komme?

Gar nicht?!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

renee

2004-05-19 01:40

User since
2003-08-04
14371 Artikel
ModeratorIn

Achso, ich habe überlesen, dass Du gar kein multiselect hast...

Dann reicht ein einfaches

Code: (dl )

my $wert = $params{kategorie};

Gast Gast

2004-05-18 16:39

Hallo,
habe ein kleines Problem. Ich erhalte bei auswert_name nur die Elemente von Auswahl und Anzahl. Benötige aber trotzdem noch die Elemente von den Auswahllisten. Kann mir jemand sagen, wie ich an diese komme?

Code: (dl )

print "<form action = \"auswert_name.pl\" method = \"post\">";
	print "<table border = 0 width = 200>";
		print "<tr bgcolor = #F2F2F2>";
			print "&nbsp;Auswahl:";
		print "</tr>";		
		print "<tr bgcolor = #F2F2F2>";
			print "<input type=radio name= \"Art\" value=\"Server\"> Servername";
		print "</tr>";
		print "<tr bgcolor = #F2F2F2>";
			print "<input type=radio name= \"Art\" value=\"Service\"> Servicename";
		print "</tr>";
	print "</table>";
		


	print "<br>";
	print "<table border = 0 width=600 cellspacing = 0 cellpadding = 0>";

			
			print q(<tr>);

				print "<td>Standort:</td>";
				print "<td>Funktion:</td>";
				print "<td>Kennung:</td>";

			print q(</tr>);
			print q(<tr>);
				print "<td>";
				
					print "<select name =\"standort\">";
						foreach (@standorte) {
							print "<option> $_->[1] </option>";
						}
					print "	</select>";
	
				print "</td>";

				print "<td>";
					print "<select name = funktion>";
						foreach (@funktionen) {
							print "<option value=$_->[0]> $_->[1] </option>";
						}
					print "	</select>";
				print "</td>";
				
				print "<td>";
					print "<select name = kategorie>";
						foreach (@kategorie) {
							print "<option value=$_->[0]> $_->[1] </option>";
						}
					print "	</select>";
				print "</td>";
			print "</tr>";
	print "</table>";

	print "<BR><BR>";
	
	print "<table>";
		print "<tr>";
			print "<td width = 200>";
				print "Anzahl:&nbsp;&nbsp; <input name=\"anzahl\" type = int min = 1 max = 999 size=10>";
			print "</td>";
			print "	<td>";
				print "<input type=\"submit\" value=\"  Absenden  \">";
				print "&nbsp;&nbsp";
				print "<input type=\"reset\" value=\"  Abbrechen  \">";
			print "</td>";
		print "</tr>";
	print "</table>";
	print "</form>";

format_c: Code-Tags spendiert\n\n

View all threads created 2004-05-18 17:43.