perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 20
 Click for quality!



11.02.2012 / 23:12
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  CGI: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragParameter in Hash speichern
 Seitenanfang
Hi,

Ich versuche mit einem Script Parameter aus einem Formular in ein Array zu speichern. Dann werden die parameter-Namen und -Werte in ein Hash als Schlussels und Values gespeichert.

Die Parameter Namen und Werten werden dann ausgegeben, und die Hash Schlußeln und Werte auch.

Aber dann habe ich komischen Werten bei der Ausgabe vom Hash.

Hier sind das Formular und den Script.

-----------html-Formular Datei----------------

<form action="http://localhost/cgi-bin/redir.pl" method="post" target="">
<table >
<tr>
<td>Login name </td>
<td> <input type="" name="Login" value="" size=""> </td>
</tr>
<tr height="40">
<td>Plant </td>
<td> <select name="firmnr" size="" tabindex="50">

<option value="1">Sn</option>
<option value="2">Grg</option>

</select> </td>
</tr>
<tr height="40">
<td> </td>
<td>vid <input type="Radio" name="radio1" value="video " CHECKED>kas<input type="Radio" name="radio1" value="kassette"></td>
</tr>
<tr height="40">
<td>Mode :</td>
<td>Live<input type="Radio" name="radio2" value="mode1" CHECKED>Test<input type="Radio" name="radio2" value="mode0"></td>
</tr>
<tr>
<td> </td>
<td><input type="Submit" name="goNow" value="Send Now" lang="en" size=""> </td>
</tr>
</table>
</form>

-----------------Ende Formular Datei-----------

---------Script redir.pl Datei-----------------

#!/usr/local/bin/perl

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my %monHash;
my @Feldnamen = $cgi->param();

print $cgi->header(),
$cgi->start_html('CGI-Feedback'),
$cgi->h1('CGI-Feedback vom Programm ',$cgi->i('redir.pl'));
print"Erst Array Ausgabe. <br>";
foreach my $feld(@Feldnamen) {
$monHash{$feld}=$cgi->param($feld);
print $cgi->b('Feldname1: '),
$feld,
$cgi->b(', Inhalt1: '),
$cgi->param($feld), "<br>";

}

print"jetzt Hash Ausgabe.";
print"<br><br>";
foreach my $champ (%monHash) {
print $cgi->b('Feldname2: '),
$champ,
$cgi->b(', Inhalt2: '),
$monHash{$champ},"<br>";
}

print $cgi->end_html();
------------------Ende Script----------

Datum: 13.12.2006-12:05
Beitragre: Parameter in Hash speichern
 Seitenanfang
Mach's Dir doch nicht unnötig schwer ;)

use CGI;
my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header();
for my $key(keys %params){
    print $key," -- ",$params{$key},"<br />";
}

Datum: 13.12.2006-14:32
Beitragre: Parameter in Hash speichern
 Seitenanfang
Ja,
Es klappt wunderbar.
Danke renee.
Aber wo liegt der Fehler in meinem Script?

Datum: 13.12.2006-14:41
-






-
 -