juha: HTML-Perl zwei Übergabewerte

Hallo Zusammen

Ich habe auf einer HTML-Seite ein Eingabefeld und ein Button, klickt man auf den Button wird das Eingabefeld dem Perl-Programm übermittelt.
In meinem Perlprogramm habe ich einige if-Abfragen, welche erkundigen, was auf der HTML-Seite eingegeben wurde. Jetzt möchte ich, dass das Programm durch zwei if Schleifen durchläuft...

Probierte es wie folgt zu lösen..

<form method="get" action="/cgi-bin/batch/zeit.cgi?batchangabe=WUE">
<table  border="0" cellpadding="2">
    <tr>
      <td>Login-Name  <input type="password" name="batch" size="20" value=""></td>
     <td><INPUT TYPE="button" VALUE="Batchen" onClick="check()"></td>
    </tr>
</table>

somit wollte ich in der ersten if-Schleife fragen ob in batchangabe WUE steht und im zweiten if, welches im ersten programmiert wurde, nach der eingabe im batch... wie kann ich das angeben, dass es dies auch wirklich macht?

Hier noch der Perlteil..

if($in{batchangabe} =~ /^CWUE/)
{
 showfile("eingabe.html");

if($in{batch} =~ /BID/)
 {
         print "Einzelne Person wird angezeigt";
        }
}

Mit freundlichen Grüssen
juha

  1. Hi,

    <form method="get" action="/cgi-bin/batch/zeit.cgi?batchangabe=WUE">

    strongly recommended:

    <form method="get" action="/cgi-bin/batch/zeit.cgi">
    <input type="hidden" name="batchangabe" value="WUE">

    if($in{batchangabe}

    Nein, nein, nein. Lies

    perldoc CGI

    und benutze param. Nimm _nicht_ diese merkwürdigen "hau alles in ein Hash"-Funktionen. Du schaffst Dir mehr Ärger, als ein normaler Mensch zu workarounden willig ist.

    =~ /^CWUE/)

    Du übergibst "WUE", nicht "CWUE". Diese Prüfung ergibt also false.

    if($in{batch} =~ /BID/)

    Ui. Passwörter sollte man in aller Regel nicht hartkodieren. Vor allem sollten sie aber nur auf Stringgleichheit überprüft werden, nicht auf das Vorkommen einzelner Zeichenketten.

    wie kann ich das angeben, dass es dies auch wirklich macht?

    Was genau ist denn eigentlich Dein Problem?

    Cheatah

    P.S.: Wenn Dein Script nicht mit
    #!/usr/bin/perl -w
    use strict;
    beginnt, solltest Du das nachholen und anschließend die Fehler korrigieren, die Dir gemeldet werden.

    1. Hey Danke vielmals!
      Es hat geklappt, ich musste lediglich dieses hidden-Feld erzeugen!!

      <input type="hidden" name="batchangabe" value="WUE">

      Grüsse Juha