Frage : Drucken mit cgi und Perl

Ich benutze einige cgi-Indexe und mit Perl für die cgi-Seiten, in einem Abschnitt, der ein Benutzerkonto verursacht, habe ich einen Abschnitt, der überprüft, um zu überprüfen, ob der neue Rekord ein Land (c), Postadresse (Post) und einen Manager (Manager) enthält. Wenn einem dieser Felder nicht dann es druckt eine Seite eingegeben wurde, die dem Benutzer das Info gibt, das sie nicht in.

What setzten, ich adaequat bin bis jetzt habe, ist das, wenn sie nur eins der 3 Felder freiließen, das Problem ich bin habe, wie man es Druck die Einzelteile ausmacht, wenn sie 2 ließen, oder 3 der Felder blank.

If sie geschehen, allen drei Feldern mich freizulassen, ihn benötigen, eine „Gewehrkugelliste“ der drei items.

Currently auszudrucken, wenn sie ein des Feldfreien raumes lassen es this.

Example ausdruckt von, was Drucken jetzt ist, wenn sie das Postfeld verlassen blank.


It scheint, dass etwas Informationen gewesen nicht die eingeführten correctly.

The Einzelteile haben, die Aufmerksamkeit benötigen, sind:

  • Need, um ein gültiges email address

einzutragen




  • $missing

    • $Footer STÖRUNG Ausgang; } 

    1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

    if (($in {c} eq '') || ($in {Post} eq '') || ($in {Manager} eq '')) {
  $err1 = „es scheint, dass etwas Informationen nicht richtig eingeführt worden sind. “;
  $err2 = „die Einzelteile, die Aufmerksamkeit benötigen, sind: “;

 wenn ($in {Post} eq '') {$missing = „Notwendigkeit, ein gültiges \ „ein email address \ ein "" einzutragen;}
 wenn ($in {Manager} eq '') {$missing = „Notwendigkeit, ein gültiges \ „einen Manager einzutragen \“ (Manager) „;}
 wenn ($in {c} eq '') {$missing = „Notwendigkeit, ein gültiges \ „ein Land \“ ein (c) einzutragen und \ „Stadt \“ (L) „;}

Druck << " STÖRUNG ";

Account Kreation Error

$Header

    

    Account Kreation Error
    		$err1 $err2

    Antwort : Drucken mit cgi und Perl

    Hallo bt707,
    Zuerst würde ich vorschlagen, dass Sie nicht mit dem Herstellen des HTML sich etikettieren stören, aber anstatt das sehr StandardCGI.pm verwende (http://perldoc.perl.org/CGI.html). Es garantiert, dass Sie immer wohl geformtes HTML produzieren.

    Betr.: Ihre „verfehlen“ Störungen, was Sie benötigen, ist sammeln alle Störungen in einer Reihe:
    wenn ($in {Post} eq '') {Stoß (@missing, „Notwendigkeit, ein gültiges \ „ein email address \ ein "" einzutragen)}
     wenn ($in {Manager} eq '') {Stoß (@missing, „Notwendigkeit, ein gültiges \ „einen Manager einzutragen \“ (Manager) ")}
     wenn ($in {c} eq '') {Stoß (@missing, „Notwendigkeit, um ein gültiges \ „ein Land \“ ein (c) einzutragen und \ „Stadt \“ (L) „)}
    Und sie alle using etwas Ähnliches dann drucken:

    mein verbinden $errorHtml = ("", Diagramm {„
  • $_
    • „} @missing);

    und Ihr ersetzen
  • $missing

    • mit $errorHtml

    Viel Glueck!
    Weitere Lösungen  
     
    programming4us programming4us